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Microsoft Windows. 
Software Development Kit 





Normally one plus one equals two. But plications now available for Windows. 
when you add Microsoft® C and the Windows” There’ a good reason for this success. 
Software Development Kit version 3.0, things Because as the creators of the Windows envi- 
start to multiply. ronment, Microsoft understands the system 

As a matter of fact, these two Microsoft and its potential for personal computing. 
products were used to create the leading ap- And that simply allows us to develop the best 


©1991 Microsoft Corporation. All rights reserved. Microsoft, PowerPoint and the Microsoft logo are registered trademarks and Windows and Making it all make sense are trademarks of Microsoft Corporation. PageMaker is 


trademark of Micrografx, Inc. Ventura Publisher is a registered trademark of Ventura Software, Inc. Toolbook is a registered trademark of Asymetrix Corporation. 
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Aldus Poee Maker 


tools for creating applications for Windows. _ the highest quality applications for Windows. 





So if youre serious about writing pro- Maybe even the next Windows sensation. 
grams for the Windows environment, call up 
your local dealer and tell him you want to ‘, 
order Microsoft C and Windows SDK. Togeth- ty 
er they equal everything you need to create Making it all make sense 


a registered trademark of Aldus Corporation. Ami is a trademark of Samna Corporation. Wingz is a trademark of Informix Software, Inc. Da Vinci Systems is a trademark of Da Vinci Systems Corporation. Micrografx is a 


¢CTOOLS PLUS/6.0 
FROM 
BLAISE COMPUTING 4 


Concentrate on the creative aspects of development by 
integrating sophisticated features into your Microsoft C 6.0 
and QuickC applications with C TOOLS PLUS/6.0™. 


C TOOLS PLUS version 6.0 is filed with many advanced 
routines for developing high-powered C applications, in- 
cluding: virtual, stackable menus and windows with full 
mouse support and optional “drop shadows’; multiple virtual 
pop-up help screens; a miniature multi-line editor for gathering = 

user responses in a robust fashion; a single function call which can move, resize, and 
promote a window or menu on top of all others; the ability to update covered windows 
automatically when they are written to; support for EGA, VGA, and MCGA text modes 
including 30-, 43-, and 50-line modes; support for the enhanced (101/102 key) keyboard. 


All this and much more for only $149! C TOOLS PLUS/6.0 also contains functions for writing 
interrupt service routines; creating pop-up memory resident applications using Interven- 
tion Code™: string translations and conversion; general memory "peeks" and "pokes'; 
access to the DOS PRINT utility; as well as many other general utility functions and macros. 


COMPLETE PROFESSIONAL PACKAGE. Blaise Computing’s function libraries offer easy to use solutions 
to your programming needs. You get source code, complete sample programs, and a comprehen- 
sive reference manual with extensive examples. Supports QuickC and Microsoft C 5.0 and later. 


ONLINE DATABASE. To speed the development process even further, C TOOLS PLUS/6.0 now features 
an online database compatible with the QuickC Advisor and the Programmer’s Workbench con- 
taining reference information for C TOOLS PLUS functions. 


30 DAY GUARANTEE. If during the first 30 days you are not completely satisfied, we'll refund your 
money. 


Blaise Computing has produced a collection of tools over the years that are unsurpassed | 
for reliability, flexibility and ease of use. Included are such widely acclaimed products as: ~ 


C ASYNCH MANAGER $189 


This library of functions helps you to add asynchronous communications capabilities fo your applications programs. Version 
3.0 is complete with sophisticated modem control routines which reset, query, dial and answer your Hayes or 

compatible modem. Powerful file transfer routines allow multi-file batch (YWMODEM and ZMODEM), simultaneous 
and background transfers with your choice of error correction. 


POWER SCREEN $149 
_ A screen management system to help you create sophisticated data input applications. 
For Microsoft C, Turbo C, Turbo C++, Borland C++, Turbo Pascal, QuickPascal and 
QuickBASIC. 
Turbo C TOOLS/2.0 $149 
A complete library of C functions equivalent to those found in C TOOLS 
PLUS/6.0 only carefully crafted to supplement Turbo C, Turbo C++ 
and freed C++. 


~— WIN++ $249 


A class library for developing sophisticated Windows OS gaent g 
using Borland C++. 


Call (800) 333- 8087 vee 
FAX (415) 540-1938 | 
























BL AISE COMPUTING ING. 
819 Bancroft Way Berkeley, California 94710 (415) 540-54 ee 
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on-screen WYSIWYG design 


eMemory utilization is conserved by 
using TPU's for Pascal and many small 

' OBJ files for C. EMS can be 
automatically used to automatically 
save the underlying graphics image. 
(Automatic storage to disk is available 
with the Genus GX version). 
eComplete support for both mouse and 
keyboard. 
eWorks with any font or video mode 
supported by the underlying graphics 
environment. 
eChoose native graphics variant to work 
standalone with your Borland or 
Microsoft compiler, or external graphics 
variant to work with MetaWindow or 
Genus GX graphics. 
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extensive flexibility is available to 
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Now, if you want to develop applications 
for Windows 3.0, there's a fast and easier 
way to do it with the premiere object- 
oriented programming language. 
Smalltalk/V." 

With Smalltalk/V Windows, you 
can explore, prototype, build finished 
applications and ship them runtime free. 

You can tap into applications using 
DDE so effortlessly you don’t have to be 
a Windows expert to do it. 

And with one of the world’s most 
comprehensive class libraries, you can 








choose our objects or easily build your own. 


But whatever you develop, it will 
be portable between the Windows, OS/2 
and Mac versions of Smalltalk/V. 

With so much at their fingertips, 
more people are solving more problems 
with Smalltalk/V than any other object- 
oriented programming system. 

At only $499.95 and no runtime 
charges, you can solve them, too. 

Just call us at (800) 922-8255. 
And see why programming Windows has 
never been easier. 


Smalltalk/V Windows 


DIGITALK 


9841 Airport Blvd., Los Angeles, CA 90045 (800) 922-8255 (213) 645-1082 FAX (213) 645-1306 





Smalltalk/V is a registered trademark of Digitalk, Inc. Other product names are trademarks or registered trademarks of their respective holders. 
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and months of rain (we hope) for us in drought-weary California — we’re anxious to get on 
; : with the coming year. No, it isn’t that we’re eager to file next year’s tax returns. (After all, say 
Q? E Nc ry Dp fl on statisticians, we just finished paying off the government this year). It’s just that the topics DDJ will 
) be covering in 1992 have us champing at the proverbial bit (or is that byte?). Here’s the 1992 DDJ 
Editorial Calendar: | : 
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4 i.e ven though there’s plenty of life left in 1991 — including cold nights aplenty for many of you 
Dr. Dobb's in E 


and Patents Now 


January Programming Advanced Architectures 

February Protected-Mode Programming 

March Assembly Language Programming 

April Advanced Algorithms | 

May Data Communications 

June Scientific and Engineering Programming 
‘July Graphics Programming 

August C Programming . 

September Debugging Tools and Techniques 

October Object-Oriented Programming 

November User Interfaces 

December New Dimensions in Data 


These aren't the only topics we'll be covering, of course. You'll also find embedded systenis and 
real-time programming, encryption, memory management, data structures, biocomputing, and 
dozens of other articles presenting useful, interesting tools and techniques. Our fundamental 
approach remains the same: one programmer talking to — and sharing ideas and techniques 
with — other programmers. And you can be assured there will be lots of source code. 

For questions about article submissions and author guidelines, contact Tami Zemel. 


C Language Q&A 

This being our annual C issue, it seems the perfect time to introduce a new, ongoing feature we 
call “C Language Q&A” that answers some of the most frequently asked questions that arise in the 
comp.lang.c newsgroup on the Usenet distributed conferencing system. Steve Summit compiled the 
questions and wrote up the answers. 

A more complete version of this series (with references) is available from Steve at 
scs@adam.mit.edu or on Usenet. The questions here aren’t in any particular order, nor will you 
find them on a regular page in this or subsequent issues — they’re scattered throughout, starting 
with page 78 this month. 

If you have questions about C or about Steve’s answers, drop us a note here, or contact Steve 
via net mail. Eventually, we hope to provide similar Q&As on other topics. 
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Encryption Update 

Since last month, there have been some developments concerning the Electronic Frontier 
Foundation, privacy, data encryption, and Senate Bill 266. To recap: $B266 was a Biden-backed bill 
proposing that government agents be provided a backdoor to encryption engines used for voice 
and data: “...providers of electronic communications services and manufacturers of electronic 
communications service equipment shall insure that communications systems permit the 
Government to obtain the plain text contents of voice, data, and other communications. ...” | 

After comments from the EFF and others, Sen. Patrick Leahy (D-Vt.), chair of the subcommittee 
on technology and the law, shelved 266. It was then resubmitted as Omnibus Crime Bill $B1241 — 
without the onerous passage. 

That’s not to say the issue is dead. The FBI is still pushing for the proposal, and opponents 
worry it will find its way into law through conference committee, riders, or other laws. If you 
agree that the sentiments behind SB266 are villainous, let your elected representative know. 

Coincidentally, the ink was hardly dry on last month’s edition before Microsoft threw its hat into 
the encryption ring, announcing licensing of RSA Data Security’s patented public-key encryption 
technology. Bill Gates himself attended the tiny press conference, noting that the most significant 
announcements sometimes come in the smallest packages. Hyperbole aside, it was an important 
turn of events — for Microsoft, RSA, and millions of computer users. 

RSA is the immediate winner. The small company got a big endorsement for technology that’s 
on its way to becoming a de facto standard. (Lotus, DEC, Novell, and others also license RSA 
toolkits.) Although Gates didn’t give a time frame, he did say Microsoft will build encryption 
technology and security features into future versions of its operating systems. The Bespectacled 
One added that encryption is central — perhaps critical — to Redmond’s plans for the future. 

Not that Microsoft has anything to hide. The company’s interest is as much with authentication 
as privacy. With public-key encryption, you know the person who says he sent you a document 
did in fact send it — not someone else. This is accomplished via a digital signature and public and 
private keys. In short, authentication is absolutely vital to the adoption and success of electronic 
messaging. Additionally, public-key encryption can be used for electronic software distribution. 

(continued on page 8) - 
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Dennis Ritchie, legendary 
developer of the UNIX Operating 
System, puts it very simply: “The 
reason the original UNIX operating 
system was so small and elegant was 
because we did things that we really 
wanted to do.”* 

Although conventional UNIX has 
grown (literally) beyond Ritchie’s 
original vision, many people still look 
to this classic OS to do what they 
want to do. 

But not if they want realtime 
performance. UNIX has unequalled 
power as a development tool, but you 
can forget about running realtime apps 
on conventional UNIX systems. They’re 
simply too big and too slow. 

Until now. 

Presenting QNX 4.0. The UNIX 
system that’s responsive enough for 
realtime apps, small enough for PC 
platforms, flexible enough for transpar- 
ent networking, and modular enough 


for the most demanding configurations. 


POSIX Means Portable 

UNIX systems come in more 
flavors than ice cream. Which is why 
IEEE’s POSIX standard is now such an 
important safeguard of portability. 





“If only we could use UNIX’ for 
our realtime applications...” 


At Quantum, we’re committed 
to the POSIX standard, and we’ve 
rewritten QNX to give developers a 
standard OS interface they can 
depend on. As a result, QNX is now 
a true UNIX operating system—but 
not a conventional one. 


Performance At Run Time, 
Design Time, All The Time 

Only QNX combines the perfor- 
mance of a dedicated realtime 
executive with the time-saving 
benefits of a rich UNIX development 
environment—including a host of 
utilities, an award-winning C compiler, 
and an optional OPEN LOOK™ GUI 
package. 


QNX is Distributed 

The QNX operating system lets 
you extend the limits of any one 
microprocessor. Whether you’re 











running a network of four or 400 
machines, QNX makes it all feel like a 
single computer. 

Interprocess communication is 
network-wide, so every process can 
transparently access every resource— 
programs, files, devices, even CPUs— 
anywhere on the network. And you 
can set up your network using any mix 
of Intel-based PCs. 

Responsive Tech Support 

Only QNX’s support hotline can 
put you in direct contact with the 
Technical Development team itself. 
And you’ll have access to our 24-hour 
online conferencing and update 
system, where the response time to 
your questions is almost like real time. 

“If Only...” 

Wherever computers do serious 
work for serious people, the UNIX 
operating system has made possible a 

lot of the “things we wanted to do.” 
But people who want realtime 
solutions have been waiting a 
long time to share in the benefits. 

The wait is over. 


What UNIX was meant to be. 


For more information, please phone (613) 591-0931. 


Quantum Software Systems Ltd. * 175 Terrence Matthews Crescent * Kanata, Ontario, Canada = K2M 1W8 


*“Who is the Real Dennis Ritchie?” UNIXWORLD, January 1991, p. 46. 


QNX is a registered trademark and QNX Windows is a trademark of Quantum Software Systems Ltd. UNIX is a registered trademark and OPEN LOOK is a trademark of AT&T. 
Intel is a registered trademark of Intel Corporation. © 1991 Quantum Software Systems Ltd. 
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installSHIELD 

Use InstallSHIELD to build a 
professional, bulletproof GUI 
installation program for your windows 
& OS/2 PM applications. Easy to script 
language provides a comprehensive set 
of over 100 installation functions 
including high performance data 
compression, program groups & icon 
creation, modify autoexec, config, 
profile & INI files, access DLLs, built-in dialog boxes, foreign language 
support. Also use for intelligent file handling & data distribution 
applications. 
Windows List: $395 
0S/2 PM List: $595 
FAXcetera # Si0o-O0Us 


eo InstalSHiIELD 
> netsuay 1 


Ours: $349 
Ours: $519 


TOOLS.h++ C++ CLASS LIBRARY 

Tools.h++ is "The Standard" in C++ 

classes. Tools.h++ delivers all the 

essential classes including Strings, 

Dates, Times, BTree, comple.e Collection 

Classes, Regular Expressions, Linked 

Lists, Queues, Stacks, & more! All 

classes support isomorphic persistence. 

Version 4.0 provides Windows*3.0 DDE & Clipboard support, & DLL 
compiling. Tools.h++ is a great example of how to write true C++ code 
with smaller executables, code sharing, & effortless maintenance. 
Tools.h++ does your dirty work for you! 

List: $799 Ours: $179 

FAX cetens # 2901 0001 


WindowsMAKER'™ PROFESSIONAL 
The fastest way to create Windows 
applications. Generates the Windows .EXE 
w/ complete source & production files (no 
royalties). Point & Click to define the user 
interface. Animate your design to instantly 
test its look & feel. Make changes on the fly 
without compiling. Custom code is 
preserved during code regeneration. A 
state-of-the-art programming tool. Supports C++. 
List: $995 Ours: $795 

PAX cetera ¢ Ux02-0008 
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3-in-1 C++ VERSION 

The first case tool for Windows 

programmers. It consists of a Screen 

Designer and a C++ Code Generator. The 

C++ Version emphasizes the Windows 

object-oriented design rather than just 

Windows programming. The detailed 

examples discuss the advantages of 

object-oriented design of data encapsulation, inheritance and dynamic 
binding. The design difference between C and C++ code provides you an 
excellent instruction to master object-oriented design. 

List : $199 Ours: $169 

Bundle Offer: 3-in-1C++andBorlandC++ 2 

FAXcetena & 31107-0002 





386/486 Development 
Intel 386/486 Code Builder 
Lahey EM/32 w/OS 386 
PharLap 386 Dos Extender 
PharLap 386 VMM 


WATCOM Fortran 386 
Zortech C++ Devel. 3.0 


Assembly/Disassembly 
Advantage Disassembler 
ASM Flow Professional 
MS Macro Assembler 6.0 
Sourcer w/ BIOS Pre-Proc. 
Spontaneous Assembly 
Turbo Debugger & Tools 
Visible Computers 286 


Basic Compilers 

MS Basic Prof. Dev. Sys. 
MS Quick Basic 

Visual Basic 


489 
1119 
439 
259 


929 
599 


279 
179 
105 
109 
169 
105 

89 


349 
69 
139 


Basic Libraries & Utilities 








DB/Lib Professional 142 
Dialogic 85 
GraphPak Professional 129 
ProBas 135 
ProBas HyperHelp Toolkit 109 
ProBas Telecom Toolkit 70 
ProBas Toolkit 3.0 89 
ProMath 94 
ProScreen 89 
P.D.. 129 
QuickPak Professional 179 
QuickScreen 129 
QuickWindows Advanced 119 
C/C++ Compilers 
Borland C++ 325 
Instant C 449 
Microsoft C 6.0 339 
MS QuickC 69 
MS QuickC w/QuickASM 139 
Turbo C++ 69 
WATCOMC Professional 419 
Zortech C++ 3.0 339 

Developer's Edition 3.0 599 

Science & Eng. 3.0 849 
C/C++ Bundles 
Borland C++ w/ 

dAnalyst Gold 499 
Microsoft C w/ 

PC Lint 419 

Pharlap 286 Dos Ext. 749 
Window Devel. Toolkit 539 
Zortech C++ 3.0 w/ 

WindowsMAKER Prof. 995 
C-Code Generators 
C Source w/ Source 479 
PRO-C 695 
C Communications 
BreakOut II 189 
C Asynch Manager 139 
Essential Comm 259 
Greenleaf CommLib 287 
Greenleaf ViewComm 319 
SerialTest 259 
View 232 149 








C File Management 
Btrieve 479 
C Data Manager 259 
Code Base 4.2 225 
c-tree Plus 459 
Essential Btree 159 
Faircom SQL Server 419 
Toolbox, Prof. Edition 935 
Toolbox, Special Edition 635 
C General Libraries 
C Function Library 79 
C TOOLS PLUS 109 
C Utility Library 199 
Greenleaf Functions 179 
Greenleaf SuperFunc. 239 
Turbo C Tools 109 
C Memory Management 
"C"EMM 169 
HEAP Expander 72 
Hold Everything 149 
C Screens 
C Worthy 359 
Greenleaf DataWindows = 315 
HI-SCREEN XL 129 
Panel Plus II 395 
Vermont Views 415 
Vitamin C 289 
VC Screen 125 
C- Additional Products 
Bar Code Library 319 
Clear Plus for C 169 
Code Check 479 
C-Doc 169 
MKS LEX & YACC 197 
Objective C 239 
Oxygen CALL 
PC Lint 105 
PCYACC Professional 459 
TimeSlicer 2719 
C-Translators 
BAS-C 339 
Commercial 799 
286 Version 1029 
FOR-C 589 
w/ Source 849 
C++ Libraries/Utilities 
C++Views 419 
Codebase ++ 225 
Greenleaf Comm ++ 289 
M++ 265 
M++, addit. products CALL 
Rogue Wave Math.h++ 179 
TIER 399 
Win++ 225 
Zinc Library 179 
w/ Source 269 
COBOL 
Micro Focus COBOL/2 749 
w/ TOOLSET 1499 
Personal COBOL 129 
MS COBOL 629 
Realia COBOL 849 


Database Development 
Clarion Personal 72 
Clarion Professional 525 
Clear Plus for dBase 169 
Clipper 521 
D Clip 192 
Database Grapli. Toolkit 259 
dBASE Ill + 475 
dBase IV Devel. Edition 845 
dBFast Plus 269 
dGE 249 
Dr. Switch-ASE 153 
Flipper 249 
FoxBASE 249 
FoxPro 489 
FUNCKy Library 225 
Paradox 3.5 549 
QuickSilver 419 
R&R Code Generator 129 
R&R Report Writer 219 
SilverComm 215 
Silver Pak 299 
Superbase 4 619 
UI Il Touch & Go 315 
UI Programmer II 475 
Debuggers 


Multiscope Debugger (DOS) 99 
Periscope Debuggers CALL 








Documentation 

All Clear 229 
Easyflow, Interactive 125 
Source Print 714 
Tree Diagrammer 74 
DOS Extenders 

Ergo 0S/286 Dev.Kit 629 
PharLap 286 DOS Extender 439 
Editors 

Brief CALL 
KEDIT 125 
Multi Edit 89 
Multi Edit Professional 159 
Norton Editor 85 
Sage Prof. Editor 249 
SPF/PC 199 
Vedit Plus 115 
Wylbur 179 
EDIX 155 
Embedded Systems 

C6 TO PROM 129 
Link & Locate 329 
Paradigm LOCATE 35 
Expert Systems 

Best Choice 3 79 
Database Toolkit 2.0 115 
KnowledgePro 449 
Logic Gem 105 
FORTRAN 

Lahey F77L 535 
Lahey Personal FORTRAN 89 
MS FORTRAN 299 


WATCOM Fortran 77 449 


800-445-7899 














Graphic Libraries Windows Development Windows Applications : 
/ Baby Driver 199° Bint for 89 — Communications DialogCoder 
| Essential Graphics 189 Actor 199 Crosstalk for Windows 125 DialogCoder isa powerful Windows CASE 
| sinha petal = oe ign - Dynacomm Asynch tool and source generator for dialog boxes. 
ratrrint rersona ? for Windows 189 3 
, GrafPrint Plus 119 CASE: W Corporate 929 Faxit for Windows 129 ss — nteriaes — “ e : 
: GSS Graph. Dev. Toolkit 685 WIN Connect 82 application provides a unique animation 
GX Graphics 199 dBFAST/Windows 269 WinFax 49 feature for testing. Supports conditional 
‘a  labbel DbxSHIELD 549 “ve states, multiple triggers, linked controls, 
alo Professiona nvironment 
‘ Halo Windows Dev. Toolkit 419 Drover Toolbox/Wind. 239 Windows 3.0 99 custom controls, automatic code 
Menuet 279 w/ MS Mouse Bus 159 regeneration (including custom code), 
| PCX Effects 89 owner-drawn controls, edit field validation, color, generation of DLLs; 
inte beat Toolkit ss eal - Database & Forms and much more. Generates both C and C++ source code, saving weeks 
w/ source em dBFAST/Windows 269 : veers : 
PCX Text 119 MS Windows Devel. Tikit | 349 sete CALL of costly coding and debugging time for each project. 
Sunshow Products CALL Multiscope for Windows 289 Object Vision for Windows CALL List: $499 Ours: $479 
Turbo Geometry Library 179 ObjectVision 95 SQL Windows 1199 FAX cetera 2939-0001 
Victor Image Library 179 ProtoView 625 Superbase 4 Windows 425 
” : RFFlow 115 
Link Profilers Sage Control Pak 535 Graphics/Publishing 
Blinker 225 —_Smalitalk/Windows 395 Adobellilustrator/Wind. 299 KnowledgePro WINDOWS 
| Charge 89° Spinnaker Plus 349 Adobe Streamline/Wind. | 269 Use KnowledgePro to build fast, 
Plink86 Plus 335° = ToolBook 349 Arts & Letters royalty free Windows applications 
RT Link Plus 299 Whitewater Res. Tikt CALL Graphics Composer 245 in record time. Interactive design 
0S/2 WindowsMaker 635 Graphics Editor 419 tools and a rich object-oriented 
Corel Draw 2.0 389 : : 
CASE:PM for C or C++ 5. Micrografx Designer 485 language combine rapid develop- 
MS 0S/2 Present. Mgr.Tkt. 349 : ment with low-level control. Built in 
SHIELD Series CALL Micrografx Charisma 345 
Smalitalk/V PM 395 MS PowerPoint 319 hypertext and expert system 
OmniPage 386 469 features let you create smart, easy- 
_ Pascal Tomes meh gaasie — to-use solutions. Use DDE to create 
Asynch Librar 135 rt intelli . 
Object rere me ag6MAX 114 PC Paintbrush/Windows 53 intelligent front-ends for Windows programs like Excel, Word and 
* 109 AboveDISC 64 Publisher's Type Foundry 385 Superbase. Add your own extensions with DLLs written in C, or C++. 
Topaz 89 AboveMEM 75 Ventura Publisher 585 List: $695 Ours: $569 
TSR's Made Easy 45 Central Point Backup 89 MS Excel 319 
| Turbo Magic 169 DIS DOC Professional 225 Wingz 339 
| Turbo Pascal 6.0 105 Dynamic Memory Ct. 22 
) Turbo Pascal for Windows 169 = HIJAAK 139 
: Turbo Pascal Professional 209 —- Hold Everything 159 
| Turbo Plus 5.5 155 Info Spotter 69 ATTENTION CORPORATE CUSTOMERS 
Turbo Professional 99 Label Master 399 fee adi are backed 
oe : y the following guarantee: 
Turbo Vision Toolkit 19 a) a tear ~— mpeg eon Call 7 (800) 422-6507 
ele products listed at a lower price ¢ Select from over 5,000 titles—and we special order too! 
Norton Anti-Virus 99 in another ad in this magazine, : : : : 
| Norton Commander 9g PE ¢ Get quick delivery at great prices on Microsoft, Borland, 
| =: § §— Norton (tilities 6.0 129 ‘ellat mu aha Suality service Lotus...etc. We buy software directly from all the major 
Prototyping i a . sari sees publishers, and keep plenty of stock on hand. And we're 
Dan Bricklin's Demo Il 265 PC Tools Deluxe 7.0 115 now an authorized IBM software dealer! 
Proteus 5.0 249 OOIS VEIUXE /. Offer good through August 31, 1991. 
Show Partner F/X 955 PreCursor 79 Applicable to pricing on current ¢ Ask about volume purchase agreements, contracts, and 
SpinRite II 65 pasteranie es rans personally assigned inside & outside sales representatives. 
Version Control/Make Squish Plus 75 pra eu te oe 
MKS MAKE 119 SunShow Image Libry. CALL obvious errors in competitors’ ads. CORSOFT is a Division of Voyager Software Corp 
| PolyMake 149 Switch-It 90 - 
Professional PVCS 419 Tree86 69 
: Sourcerer's Apprentice oo9 UpShot 89 
TLIB 119 Zeno 239 





POLICIES 


Phone Orders 

Mon-Fri 8:30 AM-8 PM EST, Sat 9:30-2:30 
EST. We accept MC, Visa, AMEX. Domestic 
shipments, please add $5 per item for 
shipping/handling by UPS ground. For 
domestic COD shipments, please add $3. 
Rush service available. 


Mail or FAX / International / POs 
Phone number required with order. 


CIRCLE NO. 195 ON READER SERVICE CARD 


1-800-445-7899 


Corporate: 800-422-6507 
(CORSOFT Division) 
International: 908-389-9228 
Customer Service: 908-389-9229 
Canada: 800-445-7899 

Fax: 908-389-9227 


Call from your FAX telephone and follow the 
instructions to receive more information on 
the products featured above! 


Corporate Accounts 
Call CORSGr7, our corporate sales division. 
Ask about volume purchase agreements. 


Returns 
Subject to $25 processing charge. 





1163 Shrewsbury Ave., Shrewsbury, NJ 07702 * All prices subject to change without notice. 
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Interpreting the Constitution 

Dear DD], 

According to Michael Swaine in his June 
1991 “Programming Paradigms,” Lau- 
rence Tribe argues that in order to avoid 
errors of the past in dealing with con- 
stitutional issues, one must “remain true 
to the values represented in the Con- 
stitution” and that “fidelity to the val- 
ues requires flexibility in textual inter- 
pretation.” 

The entire nation should find it of 
great comfort that, at long last, some- 
one is going to fully define the values 
represented in the Constitution for “the 
rest of us.” Tribe’s “flexibility” in inter- 
preting the text will, undoubtedly, pro- 
duce a translation that is uncannily in 
line with his own personal opinions and 
political leanings. 

As I see it, there are four ways of in- 
terpreting the Constitution, none of them 


fully acceptable: . 


1. What did they write? That “the right 
of the people to keep and bear arms 
shall not be infringed.” Look up in- 
fringed in the dictionary. Any regu- 
lation, including all restrictions on car- 
rying concealed weapons, should not 
be allowed. Strike one. 

2. What did they mean? They meant that 
only white, Protestant, land-owning 
males should be allowed to vote. 
Strike two. 

3. What would they write today? The 
drafters of the Constitution have been 
dead for more than 150 years. I guess 
we'll have to consult our crystal balls 
to find out. Strike three. 

4. What do I want it to say? This is the 
method used by most people, ap- 
parently Tribe included. Actually, 
judging by the number of times I’ve 
heard people say, “that’s unconstitu- 
tional!” I think that very few people 
have ever read the Constitution. Strike 
four. (You say there are only three 
strikes? Where does it say that in the 
Constitution?) 
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Technological advances and their ap- 
plication in the judicial process should 
be weighed by the degree to which they 
advance the cause of justice and pro- 
vide protection of the innocent. 

David Rago’ 

Livonia, Michigan 


Compressing to the Minimum 

Dear DDJ, 

Reading Mark Nelson’s article on data 
compression (DDJ, February 1991) in- 
spired me to experiment with text com- 
pression. In particular; I hoped that I 
could find an algorithm that compressed 
text data to near its theoretical minimum 
(if such a thing exists) without the bad- 
order time and memory requirements 
Mark spoke about with the high-order 
modeling. : 

I started with the assumption that text 
data can be characterized as a stream 
of symbols in which some symbols are 
more frequent than others, certain pairs 
of symbols are more frequent than oth- 
ers, and certain words and phrases are 
more frequent than others. I searched 
for an algorithm which exploits this 
“repetition” of strings or “frequency dif- 
ferentials” on all scales with one mech- 
anism. 

I came up with something which per- 
formed comparably to PKZIP. And I 
found the simplicity of the program 
quite surprising. 

This algorithm sounds a little like 
Mark’s Order-1 modeling, yet I found 
no need to go to higher orders. I had 
an array of “symbols,” which was ini- 
tialized to have one symbol for each 
character encountered in the text, but 
room for many more elements. Then I 
went through the file and constructed 
a table of correlations between each 
possible pair of symbols. For every pair 
of symbols occurring frequently enough 
above some threshold, I established a 
new symbol to replace the pair. Then 
I repeated the process until I failed to 
generate new symbols, at which time I 
reasoned that I had “removed” all con- 
text regularities from the file, and all 
that remained was to apply the Arith- 


metic Coding method to code all these | 


symbols. > 

‘I found that, as I expected, most 
words coagulated together to be rep- 
resented by a single symbol, and even 
uncommon words were represented by 
only two or three symbols, so that in 
a sense it was working like a dictio- 
nary model. If text was repetitious on 
all scales, like a fractal, I’d be able to 
compress the file to just a few symbols, 
with all the information of the file con- 
tained in the array of symbols, but as 
it is, the array of symbols is always 
small compared with the processed file. 


For example, 


: while(true) { 
break; 


was encoded by four symbols: 


while( 
true 

) {(\n\r\t\t 
break; 


Now, of course, I ended up with a large 
number of “symbols,” up to several 
thousand for a large English file. To con- 
struct the table of correlations, I couldn’t 
very well have an array: int c[2000][2000]. 
But I accomplished the same effect by 
splitting the theoretical table into small- 
er squares of some smaller fixed size, 
so that for each square I constructed 
part of the hypothetical 2000 x 2000 cor- 
relation table. It slowed things down, 
but I was not particularly concerned 
about speed. Firstly, I thought that the 


primary concerns were compression ra- - 


tios and reconstruction times. Second- 
ly, as it turned out, I was never waiting 
too long for files to be compressed. 

Can I conclude that I may have com- 
pressed the file to its theoretical mi- 
nimum? Something I believe, which 
someone may someday prove, is that 
Arithmetic Coding is the theoretical op- 
timal way of encoding a sequence of 
symbols, providing that the sequence 
has no context regularities. A sequence 
of symbols without context regularities 
can be permuted in any way and be sta- 
tistically equivalent to the original se- 
quence. If my processed file of symbols 
has this property, I should be able to 
permute it in any way and get some- 
thing completely comprehensible. This 
is not the case. I haven’t tackled the 
problem that symbols occur with dif- 
ferent frequencies in different regions 
of the text, (more so with programs than 
English), because I expected only mod- 
est gains with that optimization. Also, 
more pertinently, I know the rules of C 
syntax (and layout) and English gram- 
mar, and so all the “comprehensible” 
files share some regularities this method 
does not employ. Some of these more 
superficial regularities could be pro- 
grammed into a compression program 
as culture-specific information, but there 
are also deeper regularities, e.g., mean- 
ing and function, which would be dif- 
ficult to exploit. 

Tim Cooper 

Eastwood, Australia 


Mark responds: Mr. Cooper has come up — 


with an interesting algorithm for tok- 
enizing a file. Whether it can be effec- 
tively used to compress a file is another 
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FINDS OUT-OF-BOUNDS MEMORY ACCESSES 
AUTOMATICALLY 


Your program may have 10,000 to a million lines of code. 


lt may occasionally hang mysteriously or it may appear 
to run flawlessly every time. But under DOS, how can 
you ever be sure that your program is not corrupting 
memory it does not own? The only way to be 100% sure 
is to BOUNDS-CHECK before you ship. 


To use BOUNDS-CHECKER you build your program with 
debugging information (we support most compilers 
including Microsoft, Borland & JPI). Then you just type 
<BC file-name>. BOUNDS-CHECKER sets up the 
386™ /i486 for protection and lets your program fly. If 
your program accesses memory it does not own or 
overwrites its own code, BOUNDS-CHECKER pops up 
displaying the offending SOURCE-LINE or instruction. 


Programming under DOS is a gamble, so why not stack 
the odds in your favor--CALL TODAY. 


(603) 888-2386 


Call by 4:00 PM EST TODAY and ask us 
to EXPRESS you an info packet. In most 





cases you will receive it by 10:30 AM 
tomorrow. (USA only) 





| All Nu-Mega products require a 386, 386SX or 486. 

| MS-DOS and Codeview are trademarks of Microsoft 
Corp. 386 Is a registered trademark of Intel Corp. 
Nu-Mega, BOUNDS-CHECKER, Soft-ICE and CV/1 
are trademarks of Nu-Mega Technologies, Inc. 





UALI 
QUALITY SOFTWARE-NOW MY SYSTEMS} 








Nu-Mega _ 


tae INC 


P.O. Box 7780 « Nashua, NH 03060-7780 U.S.A. 30 Day 
(603) 888-2386 ¢ Fax (603) 888-2465 
CIRCLE NO. 491 ON READER SERVICE CARD 
















Don't leave 
your customers 


NJ A 


iV ER 


AGAZINE 


Vata’ 


men) 


{ A\A 
aT: wd od AS 


PAGE 168 





OTHER FINE NU-MEGA PRODUCTS. . . 
The ultimate systems debugger. 


Debug: Features: 
elnterrupt routines eBreak out of a hung 


Device drivers Jw program 






e T&SRs Soft—| eReal time Break-Points 
eROMS ¢ eBack-Trace history 
eApplications eWorks with other 

e Overlays sr iphen 3 I i bce 


seamlessly integrated with BOUNDS- CHECKER 
so you can easily go back and forth between 
BOUNDS-CHECKing and debugging: 

a combination many programming 
professionals can't live without. 





DISTINCTION 





BOUNDS-CHECKER ............. $249 
SOT E i ceca $386 
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Save $100 





Buy BC & S-ICE 





Money Back Guarantee — 
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(continued from page 12) 

question. By developing a comprehen- 
Sive dictionary full of strings, it is possi- 
ble to drastically reduce the size of a file 
well beyond the ratios achievable by com- 
pression programs most of us use. The 
problem is, in order to decompress the 
file, a copy of the dictionary has to be 
passed to the decompression program 
along with the data. So the critical fac- 
tor is how much storage space is taken 
up by the dictionary and the compressed 
data together, not just the data. Mr. Coop- 
er seems to be neglecting that factor in 
his presentation. 

In the event that you are going to be 
compressing the same type of files on a 
regular basis, it makes sense to build a 
dictionary and keep it online for both 
the compressor and the decompressor to 
use. For the most part, today’s users seem 
to prefer algorithms such as LZW that 
create dictionaries on-the-fly. It seems 
possible that applications involving the 
storage of massive amounts of homoge- 
neous data, such as reference works on 
CD-ROM, could benefit from the Coop- 
er approach. 


Until Proven Otherwise 

Dear DDjJ, “ 

J am writing in response to the letters 
from Steve Medvedoff and Charles Pine 
(“Letters,” May 1991) regarding Michael 
Swaine’s February 1991 “Programming 
Paradigms” column (“A Programmer 
Over Your Shoulder”). These letters pre- 
sent a wonderful opportunity to rein- 
force the points he made in his article 
about On the Shape of Mathematical Ar- 
guments by Antonetta van Gasteren. 

The special irony is that the second 
writer disproves his own point. Briefly, 
he claims that he has a “hardly” messy 
proof of the natural number pair-match- 
ing problem. His proof is clear. It is al- 
so incorrect. The first part of this letter 
attempts to find out why. 

It is hard to show where the “mis- 
proof” breaks down, because the con- 
clusion, after all, is the correct one! This 
problem is very similar to one often 
faced by programmers. Your program 
has been getting the correct answer, but 
suddenly it’s not. By looking at the code, 
you eventually discover that it was get- 
ting the correct answer purely by acci- 
dent. This incorrect proof manifests a 
similar bug. Its technique appears to 
work in the present situation. In other 
circumstances, it will actually prove in- 
correct statements. 

One way to find this kind of bug is 
to represent the program, or proof, ab- 
stractly. In this case, then, the argument 
goes as follows: Begin with the pairing 
that you believe is optimal. Show that 
every pairing derivable from yours in a 
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certain way is not better than yours. 
Conclude that yours is best. 

The missing piece emerges in the 
phrase “in a certain way.” The pairings 
using the procedure in the misproof in- 
clude only those achievable by “ex- 
changling] the members of two pairs.” 
These are not all possible pairings 
(when the ‘number of all pairs exceeds 
two, anyway), and so it does not nec- 
essarily follow that the putative opti- 
mum is best. In other situations (where 
the function to maximize is different, for 
example) this technique can “prove” in- 
correct conclusions. 

Perhaps the “messy” proofs are 
messy because they are correct? The 
second point of this letter is to expound 
on the similarities between the spirit of 
modern mathematical thinking and 
code reuse. This is mentioned by the 
first letter writer, Steve Medvedoff, 
where he notes that “in mathematics, 
looking at a problem from a different 
perspective...is a common, often en- 
lightening practice.” 

The same example will do nicely to 
illustrate. The sum of products appears 
in many branches of mathematics: as a 
dot product of vectors, for example, or 
as a line integral over a polygon, or the 
square of the diagonal of some hyper- 
box. In this case it is especially fruitful 
to look a little farther afield, to proba- 
bility theory. 

You should recognize the sum of 
products expression as the covariance 
of a bivariate population (the set of 
pairs). Now for the “code reuse”: Those 
familiar with the relationship between 
covariance and correlation will see im- 
mediately that maximizing the covari- 
ance (while keeping the coordinate sets 
fixed) is achieved by maximizing the 
correlation coefficient. (By the way, this 
is where I hide most of the algebra and 
hand-waving that appears “in-line” in 
other proofs.) 

The lights begin to flash. To wit: 1. 
The problem needn’t be restricted to 
natural numbers, or even positive num- 
bers, at all; the coordinates can be al- 
lowed to be any sets of real numbers. 
2. The correlation coefficient is invari- 
ant under translations and rescalings of 
the coordinates (i.e., of all Xs at once, 
or of all Ys at once). (I can’t resist point- 
ing out that this extends the useful 
symmetries in the problem from a small, 
finite permutation group to an (infinite) 
four-dimensional group.) 3. The prob- 
lem now has a direct geometrical in- 
terpretation: How can we match the 
points so that their scatterplot most 
closely approximates a straight line? 
This is an especially nice bonus, be- 
cause it lets us visualize a solution to 
the problem. 


Bringing in all these results from el- 
ementary probability theory is akin to 
reusing old code. “Why reinvent the 
wheel?” is the cry of today’s program- 
mer, seeking the Holy Grail of perfect 
code in no time with no work. It is a 
traditional technique of mathematics, 
which derives much of its power from 
building on previous results. 

“Reusing” these mathematical results, 
let’s translate the X-values so that the 
smallest is 0, and the Y-values so that 
their smallest also is 0. (in other words, 
shift the geometric picture so that the 
bottommost, leftmost coordinate is the 
origin. We can do this because of ob- 
servation 2 above.) Now it is alge- 
braically trivial (when you see this word 
“trivial,” you know you’re not reading 
a real proof! to see that the smallest X 
must be paired with the smallest Y in 
order to maximize the sum of products. 
Any other possibility can be equalled 
or improved by using this matching in- 
stead. The key is that the zeros simpli- 
fy the computation. | 

This is where the beauty of the re- 
cursive formulation mentioned by 
Swaine comes in. We’re done! The prob- 
lem now is “one size” smaller, since we 
are left to pair the remaining points 
among themselves. By recursion, we 
see immediately that the ordered X-val- 
ues must be paired with the ordered Y- 
values, smallest with smallest, through 
largest with largest. 

The same kind of magic instantaneous 
solution arises in well-written recursive 
code. Recursive-descent parsers, for ex- 
ample, can appear just as mysteriously 
effective. 

One point, worth a lot of reflection 
(I think), is that the hard part was over 
as soon as the connection with proba- 
bility theory was made. In other words, 
the achievement lies not in the reuse 
of techniques (code) per se; it lies in 
discovering which code is relevant, and 
using it (‘interfacing” with it) appro- 
priately. 

I have been able only to touch upon 
parallels between the disciplines of pro- 
gramming and “proof-making” here. 
Proofs and programs can have bugs, but 
sometimes appear to work correctly. 
Reusable code and insights from other 
mathematical/scientific disciplines can 
be remarkably effective. Visualizing a 
problem can be enlightening. These 
points, and the spirit of this discussion, 
are worthy of further musing, further 
pursuit. I hope that Swaine keeps on 
track. 

William A. Huber, Ph.D. 

Philadelphia, Pennsylvania 


DDJ 
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Introducing 


Vermont Views’ QV. 





New, easy 
and only 


to use 
S199! | 


Now, user interface development is easy to learn and easy to pay for! 


For the first time, you can get 
a full-featured, high-performance 
C-language interface develop- 
ment system at a truly affordable 
price. Vermont Views™ QV 
(Quick Version) offers a fast 
and powerful way to include 
the dynamic, useful fea- 
tures of famous Vermont Views 
within a library of 123 func- 
tions. We’ve streamlined QV /f 
by eliminating some of the 














ation, and total 
management of 
forms, menus, 
and fields. It lets 
you interactively 
create pull-down 
menus, data-entry 
_ forms with scrollable 
- regions, choice lists, 
memo fields, and a wide 
variety of validated field 
types. The Designer 


advanced and complex WITH includes DOS mouse 
features many program- POS MOUSE _ support, exploding 
mers will never need. What SUPPORT! windows, shadow 


QV gives up in advanced 
flexibility and control, it makes 
up for with simplified documen- 
tation, an easy-to-learn format, 
and incredibly fast results. And, 
for a limited time only, it comes 
with a price tag of just $199! 


Dramatically 
reduce your investment. 


3 peo Views QV was de- 
signed from the ground up to 
reduce your investment in both 
expense and learning time. With 
it, you'll be able to create useful, 
professional user interfaces al- 
most immediately. We guarantee 
it! Vermont Views QV is the per- 
fect tool for the experienced C 
programmer who needs a quick 
way to create sophisticated, mod- 
ern user interfaces. Or, for the 
programmer who is new to C, yet 
wants to become productive im- 
mediately! 

Try Vermont Views QV and 
youll discover that it’s not a 
“watered down” version. In fact, 
the Designer, the interactive 
screen designer included with 
Vermont Views QV, allows fast ap- 
plication prototyping, code gener- 





borders, plus radio 
and push buttons. Now you can 
quickly produce all those client- 
pleasing features that give your 
product that special edge! 


Vermont Creative Software 
offers a universal solution. 


Vermont Views QV provides 
the perfect solution for most 
single programmers developing 
under DOS. Other professional 
programmers may require the ad- 
vanced features of Vermont Views 
v3.0 with its C library of over 550 


@ 


functions. Vermont Views v3.0 
permits sophisticated control 
over things like key handling, 
linked list processing, keyboard 
control, international languages, 
string handling, memory man- 
agement, and application speed. 

Whether you work alone, or 
in a multi-programmer environ- 
ment developing in DOS, UNIX, 
XENIX, VMS, or OS/2, Vermont 
Views has a version to meet your 
needs. 

Use Vermont Views with any 
database that has C-language in- 
terface, such as Oracle, Informix, 
Btrieve, db_Vista and C-tree. 
Vermont Views is platform inde- 
pendent and you'll never have to 
pay any runtime fees or royalties. 


GUARANTEED FOR LIFE! 


We're so sure you'll love Vermont 
Views and Vermont Views QV, that 
we make this iron-clad, money-back 
guarantee. If you're ever dissatis- 
fied, for any reason, return the prod- 
uct for a prompt, no-questions- 
asked refund. (All you have to do is 
assure us that our code has not been 
incorporated into any application.) 
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TO ORDER: 






Call or fax us and we'll ship by UPS immediately — satisfaction 
guaranteed! Vermont Views QV $249 $199 (limited time only) 
Free Demonstration Kit: If you’re still not convinced, call or 
fax us for a free demo kit. Ask about our free, no-risk trial 

of Vermont Views QV or Vermont Views v3.0! 


800-848-1248 


Vv t U.S. and Canada 
crmon (Please mention 
Creative 


“Offer 153’’) 
Software 


Pinnacle Meadows, Richford, VT 05476 

Phone: (802) 848-7731 FAX:(802) 848-3502 
© Copyright 1991 Vermont Creative Software 
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Standard C 


A Status Report 





Where does the language go from here? 


Rex Jaeschke 


Ye in the C industry are at a major milestone. We 
' have our first language standard. We have many 
mainstream compiler vendors working hard to 
conform to that standard with quite a few of 

y them probably already there. And we soon hope 
to have in operation a system for formal validation against 
that standard. Our industry is maturing. Some say that be- 
cause of that, it is starting to die or at least fade. With ev- 
erything supposedly nailed down by a formal definition, 
there’s no room left for the entrepreneurial freedom that 
launched this language to such great heights. The media, of 
course, has lost quite a bit of its interest in this (dare I say) 
commonplace language and is instead focusing on the new 
darling, C++. 

If you like to be “on the leading edge,” okay. From my 
perspective, however, that’s the last place I want to be if I 
have real work to do. With standardization comes stability. 
And while our very being is helped by change, it is just as 
much hindered by it. Creeping featurism we can do without, 
for the most part. Now that the hype seems to have gone 
from our beloved language we can get on with the job we 
were presumably hired to do. That is, deliver usable results 
using real people and a small, finite budget. And if we need 
to write portable code, at least we now have a much better 
chance of doing it than we ever had before. 

At this point in C’s life, it is worth looking back at how 
we got to where we are — to what shaped the standard and 
why, and where we can and will go from here. 


The ANSI C Standard 
The first standard for C was that endorsed by the American 
National Standards Institute (ANSD in December of 1989 





Rex is editor of The Journal of C Language Translation, a 
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language translation tools. He also serves on the ANSI C 
committee X3]11, is the US international representative to 
ISO C, and is the convenor of the Numerical C Extensions 
Group. Rex can be contacted at 2051 Swans Neck Way, 
Reston, VA 22091, 703-860-0091, or via the Internet at 
rex@aussie.com. 
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(known formally as X3.159-1989). This standard was pro- 
duced by the X3J11 committee under the auspices of the X3 
Secretariat which, in turn, is managed by the Computer and 
Business Equipment Manufacturer’s Association (CBEMA) in 
Washington, D.C. Strictly speaking, X3J11 is not an ANSI 
committee; however, it is generally known as the ANSI C 
committee. 

How did X3J11 get started? For that we go back to early 
1983 when Jim Brodie of Motorola was charged with im- 
plementing a C compiler. After having searched for a com- 
plete definition of the language, preprocessor, and library he 
concluded no such thing existed. What did exist was a book 
called The C Programming Language by Kernighan and 
Ritchie (now affectionately known as K&R); various papers 
published both within and outside AT&T’s Bell Labs; and a 
myriad of compilers, most of which were either derived from, 
or tried to emulate, the Unix portable C compiler (pcc). If 
an implementor wanted to know what a C compiler was sup- 
posed to do in a particular situation, the answer was often 
“Why don’t you run a test through pcc and see what it does?” 

Brodie reported to his boss that no complete description 
existed. His boss, who had previously been involved in lan- 
guage standards, suggested Brodie should make a standard 
because none currently existed. Brodie took the advice; af- 
ter all, how long could it possibly take to pin down the few 
loose ends needed to make the definition really complete? 
(The answer was, about seven years.) 

So Brodie became the convener of a proposed ANSI com- 
mittee. His first big job was to write a project proposal out- 
lining the goals and purposes of such a committee as well 
as the justifications and estimations of the resources it would 
need and where they would come from. This proposal was 
then submitted to SPARC (ANSI loves acronyms) for its con- 
sideration. Once they approved, the new committee was of- 
ficially formed and named X3J11. (X3 is the ANSI subgroup 
that deals with computing standards, J is the language cate- 
gory within X3, and there were already ten other commit- 
tees in existence. Other examples are X3J3 — Fortran and — 
X3J16 — C++.) 

The first official meeting was chaired by convener Brodie. 
A slate of officers was nominated and, eventually, elected. The 
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original officers were: Chair, Brodie; Vice-Chair, Tom Plum; 
Secretary, PJ. Plauger; and Vocabulary Rep, Andy Johnson. 

Larry Rosler volunteered to serve as editor of the draft stan- 
dard. (Although the editor is not an officer, he obviously 
plays a very important role in the committee’s work.) These 
people continue to serve in those capacities today except for 
Rosler who has been replaced by David Prosser. A Rationale 
editor (Randy Hudson) was added later, as was an Interna- 
tional Representative (first Steve Hersee, then Plauger, and 
now myself). 


Appointments to the C High Court 

The general impression users seem to have of standards is 
that they have been handed down from some divine au- 
thority that supposedly knows what is best for “mere mor- 
tals.” In fact, X3J11 is made up of real people, many of whom 
actually program in C. If they are just “regular” C program- 
mers, how do they get appointed to the high court of C? 
Well, they pretty much appoint themselves. Or at least their 
employers appoint them. 

Anyone can attend and informally participate in an ANSI 
standards meeting even if they aren’t registered members. 
However, to vote on issues of policy they must meet certain 
requirements. For example: 


e They must be fully paid members registered with 
CBEMA. (This requires they fill out a form and pay $250/year.) 
And while companies can register and send as many em- 
ployees as they wish, one employee becomes their primary 
delegate with any others being alternates. Only one repre- 
sentative from each company may vote at a time. A mem- 
ber need not be a US citizen nor even a permanent resident. 
(X3J11 had active participation from numerous nonresident 
non-Americans. ) 

e To actually benefit from committee deliberations, they 
really need to attend meetings. In most years this meant four- 
and-a-half-day meetings four times a year, generally some- 
where in the US. 

e To maintain their voting privileges, they must attend two 
of every three meetings and be signed in on the attendance 
list for a certain number of days each meeting. Each indi- 
vidual company gets one vote. Fred Smith, an independent 
consultant, gets one vote, as do IBM, AT&T, and DEC. Ob- 
viously, Fred’s vote can be very significant. 


In summary, you can have a significant impact on an 
ANSI standard if you have $250 and the time and budget to 
attend meetings and prepare and read papers between meet- 
ings. You can also have a real impact if you never attend 
meetings, simply by being an observing member and corre- 
sponding by post or electronic mail. 

X3J11 has been dominated by implementors of C language 
translation tools. (This is not to suggest the resulting stan- 
dard is somehow inadequate or biased, however. On the 
contrary, I think the standard is of very high quality.) Of 
course, each vendor also indirectly represented their own 
customer base. But what the vendor sees as being in his best 
interest may not be what his customer wants or needs. As C 
matures even further, it will be interesting to see if the com- 
position of X3J11 membership changes. I suspect it will, but 
it’s a slow process and few end users perceive the need to 
get involved at this level or can justify the investment in time 
and expense. 

It is important to realize that X3J11 members must pay their 
own way in all standards-related activities and that mem- 
bership is totally on a volunteer basis. Neither ANSI nor the 
X3 Secretariat provide any financial assistance. A gracious 
host must be found for each meeting. (Until recently, hosts 
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had to duplicate and mail up to 200 sets of several hundred dent wherever this was clear and unambiguous. The vast ma- 














pages before and after each meeting.) ANSI’s only revenue | _ jority of the language defined by the Standard is precisely the 
» <omes from committee membership fees and the sale of stan- same as is defined in Appendix A of The C Programming Lan- 
date documents. . guage by Brian Kernighan and Dennis Ritchie, and as is imple- 
! i mented in almost all C translators. (This document is hereinafter 
gti referred to as K&R.) : 
The Committee's Aims ; K&R is not the only source of existing practice. Much work 
The aims are best stated by quoting the Rationale document has been done over the years to improve the C language by ad- 
. that accompanies the C Standard: dressing its weaknesses. The Committee has formalized en- 
p hancements of proven value which have become part of the var- 
4 The Committee’s overall goal was to develop a clear, consistent, ious dialects of C. 
| and unambiguous Standard for the C programming language Existing practice, however, has not always been consistent. 
which codifies the common, existing definition of C and which Various dialects of C have approached problems in different and 
promotes the portability of user programs across C language en- sometimes diametrically opposed ways. This divergence has hap- 
vironments. pened for several reasons. First, K&R, which has served as the 
| The X3J11 charter clearly mandates the Committee to codify language specification for almost all C translators, is imprecise 
q common existing practice. The Committee has held fast to prece- in some areas (thereby allowing divergent interpretations), and 
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Everything You Ever Wanted In UNIX. 


And Less. #9995". 


OK. We know it’s hard to 
believe. So just consider this. 
Coherent” is a virtual clone of UNIX. 
But it was developed independently 
by Mark Williams Company. Which 
means we don’t pay hundreds of dol- 
lars per copy in licensing fees. 

What’s more, Coherent embod- 
ies the original tenet of UNIX: small is 
beautiful. This simple fact leads to a 
whole host of both cost and perform- 
ance advantages for Coherent. So 
read on, because there’s a lot more to 
Coherent than its price. 

SMALLER, FASTER. ..BETTER. 

Everybody appreciates a good 
deal. But what is it that makes small 
so great? 

For one thing, Coherent gives 
you UNIX capabilities on a machine 
you can actually afford. Requiring 
only 10 megabytes of disk space, 
Coherent can reside with DOS. So 
you can keep all your DOS applica- 
tions and move up to Coherent. You 
can also have it running faster, learn it 
faster and get faster overall perform- 
ance. All because Coherent is small. 
Sounds beautiful, doesn’t it? 

But small wouldn’t be so great if 
it didn’t do the job it was meant to do. 

Coherent For Santa Cruz 


LESS the IBM-PC/AT Operation’s 


and compatible XENIX 286, 
IS MORE! 286 or 386 Version 2.3.2 
based machines. 





No. of Manuals 

No. of Disks 

Kernel Size 198K 
Install Time 20-30 min. 3-4 hours 


Suggested Disk Space 10meg 30meg 
Min. Memory Required 640K 1-2meg 
Performance* 38.7 sec 100.3 sec 


Price $99.95 $1495.00 


*Byte Execl benchmark, 1000 iterations on 20 MHZ 386. 
Hardware requirements: L 2 meg 5¥4” or 1.4 meg 342” floppy, and 
hard disk. Does not run on Microchannel machines. 





EVERYTHING UNIX 
WAS MEANT TO DO. 

Like the original UNIX, 
Coherent is a powerful multi-user, 
multi-tasking development system. 
With a complete UNIX-compatible 
kernel which makes a vast world of 
UNIX software available including 
over a gigabyte of public domain 
software. 

Coherent also comes with Lex 
and Yacc, a complete C compiler and a 
full set of nearly 200 UNIX commands 
including text processing, program 
development, administrative and 
maintenance commands plus UUCP. 


CRITICS AGREE: IT’S 
AN INCREDIBLE VALUE! 


“Mark Wilhams Co. seems to have 
mastered the art of illusion; Coherent 
comes so fully qualified as a UNIX 
clone, you find yourself thinking ‘I 
can’t believe it’s not UNIX? ” 


—Sean Fulton, UNIX Today!, 
November 26, 1990 


“..(Coherent) may be the best thing 


that has happened to UNIX yet.” 
—William Zachmann, PC Week, 
November 5, 1990 


“Tf you want to come as close as you 
can to real UNIX for a low price, 


COHERENT can’t be beat.” 
—Warren Keuffel, Computer Language 
Magazine, November 1990 


“If you want a UNIX-lke develop- 
ment and learning system for less 
than $100. ..I don’t see how you can 
go wrong with Coherent.” 
—David Fiedler, BYTE Magazine, 
November 1990 
EXPERIENCE, SUPPORT 
AND A 60-DAY 
MONEY BACK GUARANTEE. 
Wondering how something as 
good as Coherent could come from 
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NEW COHERENT RELEASE 3.1 
NOW WITH... 
—elvis: vi editor clone 
—SCSI (Adaptec AHA 154x series 
and more on the way.) and 
ESDI support 


—UUCP Bulletin Board System 
—RAM disk support 
—And much, much more! 
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OVER 20,000 SATISFIED USERS! 


nowhere? Well it didn’t. It came from 
Mark Williams Company, people 
who’ve developed C compilers for 
DEC, Intel, Wang and thousands of 
professional programmers. 

We make all this experience avail- 
able to users through complete techni- 
cal support via telephone. And from 
the original system developers, too! 

Yes, we know $99.95 may still 
be hard to believe. But we’ve made it 
fool-proof to find out for yourself. 
With a 60-day money-back no-hassles 
guarantee. 

You have to be more than just a 
little curious about Coherent by now. 
So why not just do it? Pick up that 
phone and order today. 

You'll be on your way to having 
everything you ever wanted in UNIX. 
And for a lot less than you ever 
expected. | 

1-800-MARK WMS 

(1-800-627-5967 or 1-708-291-6700) 
FAX: 1-708-291-6750 
60-DAY MONEY BACK GUARANTEE! 


an Mark Williams 
Company 
60 Revere Drive 


Northbrook, IL 60062 


*Plus — and handling. Coherent is a trademark of Mark 
Williams Company. UNIX is a trademark of AT&T. XENIX is a 


‘trademark of Microsoft. 
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‘‘Without a doubt, OPUS Make 
is the hottest make utility 
on the market” 


Tom Swan, PCWorld 


stands C prep ces 
Both DOS and he 5/2 


for only: $1: 


Call 1-80 


International: 415-664-7901 F 
1032 Irving Street, Suite 439, San 


¢ 


20 





Trademarksowned by their wn 
CIRCLE NO. 599 ON READER SERVICE CARD 


CASE< > 


object message 
oriented 


SEMAPHORE Li TOOLS 





CIRCLE NO. 308 ON READER SERVICE CARD 


STANDARD C 


(continued from page 18) : 
it does not address some issues (such as a complete specifica- 
tion of a library) important for code portability. Second, as the 
language has matured over the years, various extensions have 
been added in different dialects to address limitations and weak- 
nesses of the language; these extensions have not been consis- 
tent across dialects. 

One of the Committee’s goals was to consider such areas of di- 
vergence and to establish a set of clear, unambiguous rules con- 
sistent with the rest of the language. This effort included the con- 
sideration of extensions made in various C dialects, the specification 
of a complete set of required library functions, and the develop- 
ment of a complete, correct syntax for C. 

The work of the Committee was in large part a balancing act. 
The Committee has tried to improve portability while retaining 
the definition of certain features of C as machine-dependent. It 
attempted to incorporate valuable new ideas without disrupting 
the basic structure and fabric of the language. It tried to devel- 
op a clear and consistent language without invalidating existing 
programs. All of the goals were important and each decision was 
weighed in the light of sometimes contradictory requirements in 
an attempt to reach a workable compromise. 

In specifying a standard language, the Committee used sever- 
al guiding principles, the most important of which are: 


e Existing code is important, existing implementations are not. 

e C code can be portable. 

e C code can be non-portable. 

e Avoid “quiet changes.” [These are changes to widespread 
practice that alter the meaning of existing code.] 

e A standard is a treaty between implementor and programmer. 

¢ Keep the spirit of C. There are many facets of the spirit of 
C, but the essence is a:community sentiment of the underlying 
principles upon which the C language is based. Some of the 
facets of the spirit of C can be summarized in phrases like 


+ Trust the programmer. 

+ Don’t prevent the programmer from doing what needs to 
be done. 

+ Keep the language small and simple. 

+ Provide only one way to do an operation. 


One of the goals of the Committee was avoid interfering with 
the ability of translators to generate compact, efficient code. In 
several cases the Committee has introduced features to improve 
the possible efficiency of the generated code; for instance, float- 
ing point operations may be performed in single-precision if 
both operands are float rather than double. 


Milestones 

Because a standards committee tends to work in isolation 
during much of its deliberations, it was deemed important 
to get outside input once X3J11 had progressed far enough. 
As such, an unofficial public review period was announced 
and copies of the working draft were made available for 
purchase through CBEMA. Considerable time was then 
spent by X3J11 in analyzing the many criticisms and sug- 
gestions submitted. 

The next stage was to have a formal public review. (From 
this point on, X3J11 required a two-thirds majority to change 
the draft instead of the previous simple majority.) In this case, 
the draft standard was issued for four months. All public com- 
ments had to be answered according to a detailed set of 
rules. In each instance where X3J11 decided to not adopt a 
suggestion it had to give some rationale as to why, and a 
dissatisfied public could appeal its treatment. Once all issues 
had been resolved, the cycle was repeated, but only for a 
two month period. After three public reviews, the draft stan- 
dard had convergerd to its final form. This process contin- 
ued until X3J11 converged to a standard that was acceptable 
to most (but not necessarily all) voting members and ANSI. 

For all intents and purposes, the standard was complete 
by late 1988. However, sometime after the final public com- 
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System Architect has the power to handle | 
your most complex applications. And it's so 
easy to use, even beginners will be produc- 
tive in no time. 


Use such methodologies as 
DeMarco/ Yourdon, Gane 
& Sarson, Ward & Mellor 
(real-time), Entity Relation 
diagrams, Decomposition 2 
diagrams, Object Oriented Eo 
Design (optional), State nef} lvotume 
Transition diagrams, & 

Flow Charts. 


Create an integrated data 
dictionary/encyclopedia, 
and get multi-user support 
both with and without a 
network. | : 


Take advantage of such advanced features as: 

¢ Normalization eRules & Balancing 
¢ Requirements Traceability ¢ Network Version 
eImport/ Export Capability ¢Custom Reporting 
eExtendable Data Dictionary °*Auto Leveling 


Rely on a proven CASE product. System Architect 
has received rave reviews from the press and users. 
IEEE Software Magazine called System Architect "a 
useful, well-planned, affordable CASE tool." CASE 
Trends found System Architect "to be extremely easy 
to use. ... with many features that are completely 
lacking in higher priced competitors." Toshiba found 
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it” ‘stem Architect stood out from many other 
pects because it had the best core technology." _ 
System Builder called System Architect "truly a price/ 
performance leader." 
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—- availability), and count on 
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| 1 Library System 

; 2 Cruise Control 

| 3 Ple Order 
f4Pies FA Us 


“HIROTTILE, CONTROL 


Stay within your budget. At 
$1,395, System Architect is 


aries RU fj} quite affordable -- and it runs 
By eey Based Meal «= ON almost any PC. 
ot FOR TODAY'S PRICE/PER- 
FORMANCE CASE LEADER, 
CALL (212) 571-3434 


POPKIN 


Software & Systems Inc. 

11 Park Place, NY, NY 10007 
Tel: (212) 571-3434 
Fax: (212) 571-3436 


System Architect 





MICROSOFT 
WINDOWS 


Version 30 Compatible Product 


Supporting IBM’s AD/Cycle 


System Architect logo is a trademark of Popkin Software & Systems Incorporated. Other 
product names used herein are for identification aes only and may be trademarks of 
their respective companies. Price shown valid only for USA & Canada. Price and specifica- 
tions subject to change without notice at the sole discretion of the company. Product delivery 
subject to availability. Please call for the name of the nearest international! distributor. 
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CUT 
PROGRAMMING 
TIME. 

WITH GRAPHIC 
RESULTS. 





& et to the market quicker with graphics that don’t 
compromise performance. GSS® Graphics 
Development Toolkits for DOS and OS/2 give you 
access to more than 100 high-level graphics func- 
tions. And your GDT-based applications will support 
over 300 graphics devices. 

The GDT is a time-proven solution for programs 
written in C, FORTRAN, Pascal, BASIC Compiler or 
Macro Assembler. It has been optimized through 
eight years of refinement and application to produce 
high-quality, high-performance graphics. 


YOU'LL BE IN GOOD COMPANY. 

IBM has licensed the GDT for its three PC operat- 
ing systems: DOS, OS/2 and AIX. SPC’s Harvard 
Graphics and Ashton-Tate’s Draw APPLAUSE use GDT 
technology. So do hundreds of other PC packages for 
science, business and engineering. 


CALL (800) 800-9599 


30-Day No-Risk 
Money Back Guarantee 





The GSS logo and GSS are registered trademarks of Graphic Software Systems, Inc. 
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STANDARD C 


(continued from page 20) 

ment period ended, a letter from a member of the public 
was discovered by ANSI. It had been inadvertently mislaid. 
Despite the fact that the final draft included perhaps half of 
his suggestions already, the author of this letter wanted his 
pound of flesh. After X3J11 considered his comments (many 
of which requested support for real-time applications), they 
chose to not implement his remaining suggestions. Unhap- 
py with that outcome, he chose the appeals route, which ul- 
timately resulted in no further technical changes to the draft. 
After about a one year delay, an ANSI C standard was final- 
ly accepted late in 1989. For some, that might seem like the 


All indications are that future 
development of Standard C 
will be determined at the 
international level 


end of the line. However, it’s really just the end of one cy- 
cle in a never-ending carousel ride. X3J11 not only has to 
interpret requests from the public but, eventually, must look 
at revising that standard. 


The Interpretations Phase 
Under ANSI rules, a standards committee must rule on inter- 
pretations of its standard. That is the main business of X3J11 
at this time and for the foreseeable future. Because inter- 
preting the standard requires much less time and effort than 
producing the initial standard, X3J11 went to a two day meet- 
ing schedule twice a year. However, as the workload increased, 
meetings have been extended to two-and-a-half days. 
Examples of the interpretation requests processed thus 
far are: 


1. Given the following macro definitions #define Ip (and #de- 
fine fm(a) a, to what does fm Ip “abc” ) expand? (X3J11’s 
answer was f/m ( “abc” ).) 

2. What is the resultant output from printf ("#.40", 345)? Is it 
0531 or is it OO532? (X3J11’s answer was 0531.) 

3. Do functions return structure values by copying? (X3J11 
finally decided that the function return must be done as 
if a copy was being performed.) : 


While most requests can be dispensed with quite readily, 
a few require detailed reading of many related sections of 
the standard. As a result, the formal answer can be quite 
lengthy and contain numerous quotes from the standard. 
some requests are quite educating for members of X3J11 
who thought the standard said something quite different or 
who disagree with the final outcome. 

An interpretation made by X3J11 does not have the weight 
of the standard and it can, in fact, be overturned by X3J11 
or ANSI at some later date. However, it is expected that al- 
most all interpretations will eventually find their way into a 
future revision of the standard. To help communicate in- 
terpretations to the outside world, X3J11 is in the process 
of publishing a technical bulletin containing all requests re- 
solved to date. 


The ISO C Standard 
In 1986 an ISO C standards committee was formed called 
SC22/WG14. At the same time, the draft ANSI standard was 
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, converging. However, due to input from US-based vendors 
Wishing to sell compilers to non-English speaking countries, 
and from customers and vendors in those countries, consid- 
erable effort was put into enhancing the draft ANSI standard 
in two different directions: To better handle the western Eu- 
ropean single-byte characters containing diacritical marks 
(such as German’s 4 and Spanish’s fi) and to better handle 
the multibyte character sets used in Asia. 

Although this effort delayed the ANSI C standard fei more 
than a year, it did pave the way for the ANSI standard to be 
adopted as the ISO standard without technical change. That 
is, except for reformatting changes, the ISO and ANSI C stan- 
dards became equivalent. (The ISO standard is known as 
ISO/IEC 9899:1990 (E).) 

While X3J11 is busy handling interpretations, WG14 is blaz- 
ing new trails on several fronts and is producing a norma- 
tive addendum. The main parts of that addendum are: 


e The UK delegation is busy working on a clarification doc- 


ument that further explains numerous “dark corners” of the - 


standard. No substantive changes will result, only ex- 
planatory material. 

e The Japanese delegation is defining numerous extensions 
to the library to provide more support for multibyte char- 
acter handling. This will involve a new header, functions, 
typedefs, and macros. 

¢ The Danish delegation is working on a more readable al- 
ternative to the trigraph solution already contained in Stan- 
dard C. (A trigraph is a three-character sequence of the 
form ??x that can be used to write the nine characters, 
such as {, }, 1, and \ missing from most systems using the 


ISO-646 character set.) This has been by far the most con- 
troversial activity amongst member nations. 


When published, this normative addendum will have the full 
weight of a standard. 

Currently, WG14 meets twice a year for two or three days. 
Last November they met in Copenhagen. [n May it was Tokyo 
and in December it will be Milan. Meetings are usually at- 
tended by representatives from four or five countries with 
each delegation having one to four members. No formal votes 
are held but, rather, decisions are made by consensus. Of 
course, getting work done at the ISO level is slower because 
delegates must get input from their national standards bod- 
ies, and the timing of X3J11 and WG14 can impact the abil- 
ity of the US to quickly respond to proposals at the ISO lev- 
el. Fortunately, considerable debate occurs by electronie mail 
both at the ISO and X3J11 level. 


Extension Efforts 
Numerous efforts are underway to extend the C language, its 
environment, or to define add-on libraries. Some of these are 
being pursued by groups affiliated with standards bodies while 
others are simply extensions to commercially available com- 
pilers. A few of the more notable ones are discussed here. 

The Numerical C Extensions Group (NCEG) I con- | 
vened this group in March 1989 as an ad hoc working group. ~ 
Because ANSI C clearly was not going to address numerous 
issues of importance to the numerical community, I decid- 
ed to try and coordinate. the extensions that were already 
evolving in that direction. My intent was not to replace For- 
tran with a numerically extended C, however. 

At the initial meeting of NCEG the following issues were 
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The Complete Application Development Environment for Windows., 


STRUCTURED SUPERSET OF BASIC * FORMDEV., VISUAL FORM DESIGNER 
PROGRAMMABLE APPLICATION TOOLS.,: Spreadsheet * Chart * Form « Scheduler 


REALIZER combines a structured 
superset of BASIC extended to access 
Windows object resources, a visual form 
tool, and programmable application 
tools. Develop a complete Windows ap- 
plication without the SDK, quickly and 
easily. It offers the first accessible but 
powerful programming environment for 
Windows, suitable for corporate, profes- 


series for financial data. Place markers 
and text anywhere, control the X and Y 
axes, automatically rescale any chart, 
and zoom in on any data. 


Spreadsheets 

Provide a familiar, interactive interface 
for displaying and entering data, with 
custom date-time, currency, and 
scientific data formats. 
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e Read and write a variety of file 
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Lotus® 1-2-3® , Excel, and BMP. 

¢ Run Windows and MS-DOS® appli- 
cations and access DOS commands. 


Forms 
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specified times and intervals to back up 
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features of best-selling commercial Win- communications. 

dows applications: spreadsheets, charts, ® Access any Windows API functions 

text editors, animation, graphics tablets, or third party Windows engine, such 

and user-friendly forms. as the Borland Paradox® Engine or 
SQL engines. . 

e Use REALIZER’S custom controls to 
extend Windows standard objects and 
add your own application tools. 

Charts e Access functions from languages such 

Create line charts, scatter plots, and bar as Cand Pascal via DLLs. | 


charts in multiple panes. Graph time- 
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Tools are created and manipulated by 
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FormControl, and SheetNew. 





} Full-featured integrated debugger..Step through 
i BASIC code, display variables, skip over 
statements, or display a complete call tree. 
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(continued from page 24) 
_ identified as needing the most attention: 


e aliasing 

e vectorization and array syntax 
¢ complex arithmetic 

e variably dimensioned arrays 

e JEFE floating point support 

e exceptions and errno 

e parallelization 

e ageregate initializers 


Not long after, the parallel extension topic was removed be- 
cause another ANSI committee CX3H5) had this as part of its 
project proposal. Work has progressed on all the other top- 
ics and a new topic was recently added. This involves ex- 
tending the type facility to handling larger integers. Other 
extensions to initialization syntax are also being considered. 

NCEG has met regularly since mid-1989, generally along 
with (in the two days that precede or follow) X3J11 meet- 
ings. In March of 1991, SPARC finally accepted NCEG’s pro- 
ject proposal. NCEG has since become a working group with- 
in the ANSI umbrella and is now formally known as X3J11.1. 

NCEG’s mission is to produce a technical report, nota stan- 
dard. Public comment drafts of parts of this report will like- 
ly become available early in 1992. The primary purpose of 
NCEG is to define approaches to solving numerical issues 
and to promote adoption of its solutions among the vendor 
community. This will hopefully play a major role in estab- 
lishing prior art for future C standard revisions. 

Others The ANSI committee X3H5 is defining a parallel 
processing model along with Fortran and C language bind- 
ings. Its first draft of a C binding appeared in December 1990 
and is currently being revised based on input from numer- 
ous sources. 

Various ISO committees are working on, or have com- 
pleted, C language bindings in areas such as 2-D and 3-D 
GKS graphics. 

AT&T has long had a research project on parallelism called 
“Concurrent C,” while Thinking Machines has their language 
C*. There is also C++ and Stepstone’s Objective C. The GNU 
C compiler from the Free Software Foundation has already 
played a significant role in making C available to numerous 
systems. That compiler also has numerous interesting ex- 
perimental extensions. Another interesting project is being 
developed by the initial author of Turbo C. His language is 
tentatively called OPAL and is derived from C. Many other 
projects are underway, including C-cured, a version of C with 
a supposedly more rational way of declaring types. 


The C++/C Compatibility Question 

When it was proposed that X3J11 take on the task of stan- 
dardizing C++, it declined. Not only was this not within the 
original charter of X3J11, members spent more than six years 
working on C but they also had plenty of interpretation work 
to keep them busy. In any event, there were plenty of ar- 
guments as to why C++ was a different language despite its 
C roots. Eventually, a new committee (X3J16) was formed to 
work on C++, and within little more than a year, an ISO C++ 
working group was also formed. 

There has been much discussion of X3J16’s now well-known 
statement that C++ should be “as close as possible to ANSI C 
but no closer.” In any event, there are moves afoot within 
X3J16 to keep C++ as upwards-compatible with C as possi- 
ble and to diverge only when absolutely necessary. Such com- 
patibility issues are being handled by X3J16’s C Compaitibili- 
ty subgroup. Some of the main issues this group faces are: 
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ePrograms containing both C and C++ code 

e Whether Standard C code can and should be correctly com- 
piled by a C++ translator 

eC++ code that calls Standard C library routines and vice 
versa 


Compiler Validation 

Any vendor can claim conformance to Standard C, and many 
currently do. However, at the time of writing (May 1991) the 
C validation service within the US was not yet operational. 
The National Institute of Science and Technology (NIST, for- 
merly the National Bureau of Standards) has, however, se- 
lected a validation suite from Perennial. This suite has been 
under technical review for several months now and is being 
revised to meet NIST requirements. It should be noted that 
NIST will validate against the FIPS C standard. (FIPS, is an 
acronym for “Federal Information Processing Standard.”) Cur- 
rently, FIPS C is ANSI C with a few extra requirements. 

The validation suite chosen by the British Standards Insti- 
tute (BSD and several other European standards bodies is 
from a different vendor, Plum Hall. Since BSI’s conformance 
facility is operational, it has already begun issuing validation 
certificates for several compilers. BSI validates against 
ANSI/ISO C. 

One interesting issue is that a conforming implementation 
must document what it does for all cases of implementation- . 
defined behavior. Documentation cannot be automatically 
checked by a suite, so it remains to be seen just how this as- 
pect will be handled. 


The Future of Standard C 

Except for reformatting changes, the ISO and ANSI C stan- 
dards are currently equivalent. As such, X3J11 and WG14 
encourages all those concerned to talk about Standard C 
rather than ANSI or ISO C. We already talk of global econ- 
omy and multinational companies abound. With the advent 
of real-time electronic communications the world is “shrink- 
ing.” National boundaries are easily transcended and, for . 
many issues, irrelevant. As such, it makes economic sense 
for us to work towards international standards rather than 
on isolated national fronts. | 

All indications are that future evolution of Standard C will 
be determined at the international level. National groups such 
as X3J11 will still continue to play a very important role and 
may even do development on behalf of WG14. However, 
the focus will be more and more on international standards. 
To that end, X3J11 is currently completing a letter ballot to 
withdraw X3.159-1989 and to replace it with ISO/IEC 
9899:1990 (E). That is, it is planning to make the ANSI C stan- 
dard exactly the same as that from ISO, including the ISO 
format. This paves the way for X3J11 to officially track the 
work of WG14; as ISO C is revised, ANSI C can be revised 
in the same manner. 

The technical report produced by NCEG will likely have 
some impact on future directions of C because many of the 
members of X3J11 are also active within X3J11.1. 

As to C++, at this time I do not see it as the logical suc- 
cessor to C. For certain classes (no pun intended) of pro- 
grams, C++ may indeed be more appropriate. However, C 
still has its own considerable niche. And with C leading the 
race to support multibyte and international software charac- 
ter sets via C’s locales, I suspect C will be used in an even 
broader range of applications in the future. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 1 


Dr. Dobb’s Journal, August 1991 


| 
| 
. 





aa le roids isan ign a 
CS aaa 5 
unis 1 


Graphical forms and a robust programming language 
combine to create powerful Windows-based applications. 
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Label Text Box 
Command 
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Drive 
Timer List Box 
Directory File 
List Box List Box 


Visual design tools provide a graphical way 
to create graphical applications. 





Key Features 


e Fast, full-featured programming 
language. 

e Create .EXE files with no royalty or run- 
time fee. 


e Visual design tools for click-and-drag de- 
velopment of graphical applications. 


e Sophisticated Windows-based applica- 
tions can include all standard Windows 
controls, multiple windows, dialogs, cus- 
tom menus, drag-and-drop, and program- 
matic graphics. 





Now developing Windows 
applications is almost as 
as using them. 






Finally, there's a fast and simple way to develop execut- 
able applications for Microsoft’ Windows” 3.0. 

To start, you simply point, click, and drag. In almost no 
time, you've built a functional Windows interface. Without writ- 
ing a single line of code. 

But writing code is simple, too. You just choose events in 
the interface, then write the corresponding procedures. So 
when ButtonNew is clicked, for instance, “Sub ButtonNew_Click” 
is automatically executed. What's more, youre writing in a 
language that’s easy to use, highly structured, and powerful. 

The result: applications that used to take days or weeks 
can be finished in hours. 

This remarkable new system is Microsoft Visual Basic’ 
To learn more, call (800) 541-1261, Dept. R13. And see just 
how clear Windows programming can be. 


For more information inside the 50 United States, call (800) 541-1261, Dept. R13. Customers in Canada, call (416) 568-3503. Outside the U.S. and Canada, call (206) 
936-8661. © 1991 Microsoft Corporation. All rights reserved. Microsoft and the Microsoft logo are registered trademarks and Windows, Making it all make sense and 
Visual Basic are trademarks of Microsoft Corporation. 
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Visual Basic’s interactive Help 
system 1s always at your fingertips. In 


e Paste-link and programmable Dynamic the Code window, select anv language 
Data Exchange (DDE). ~ Code window, select any languag 


e Support for Dynamic Link Libraries 
(DLLs). 


keyword and press <F1> to get in- 
formation on that word’s usage and 


e Online, context-sensitive Help. syntax. Hyp ertext | inks allow you to 
o Pletailed bali fate: jump to related topics. You can even 
e Sample code and full-featured example cut and paste code examples into 
applications. your program. 
e Incorporate bitmap graphics, metafiles, ae 
and icons. ° 


e Sophisticated debugging tools. 
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(senerator for C 


A language-independent means of building programs | 
that are consistent, elegant, and fast 


have been writing code for about 

nine years, and one thing I’ve no- 

ticed is that programming can usu- 

ally be divided into three phases. 

Phase 1 (getting the idea) takes all 
of a millisecond and usually occurs 
somewhere really convenient, like in 
the shower. Phase 3 (running the fin- 
ished program on the machine) takes a 
few seconds or minutes for the type of 
applications I usually deal with. Phase 
2 (actually writing the bloody thing) usu- 
ally takes a few orders of magnitude 
longer than Phases 1 and 3 put togeth- 
er. I know life’s not supposed to be fair, 
but this is ridiculous. 

Ever since I started working in a Unix 
shop, I’ve always wanted a “program- 
mer’s assistant” for C, kind of an invis- 
ible HAL 9000 sitting behind me and 
whispering things like “I’m sorry, Dave, 
but I don’t think that you should cast 
that pointer. Malloc will barf, and your 
program will go west, taking me with 
it.” I don’t have a clue about how to 
write something like that, so the next 
best thing is to take the 80 percent trash- 
work of coding away and leave me with 
the 20 percent that’s fun. I needed a 
code generator and my requirements 
were simple: 


e It had to be very simple to use, with 
a minimum amount of nonsense to 
remember. 

e It had to run from the command line 


Karl is a programmer for Control 
Data Corporation. Contact him at 
2970 Presidential Dr., Suite 200, 
Fairborn, OH 45324. 
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like any other program, with a mini- 
mum of options. 

e It had to be extensible, handling dif- 
ferent coding conventions and lan- 
guages if needed. 

e It had to write the outline of a pro- 
gram and then put me right into the 
editor of my choice. 





e It had to be simple enough to put to- 
gether in a few hours, because a good 
idea now beats a great one on the 
drawing board any day. 


The program I came up with is called 
“new.” The source code for “new” is 
shown in Listings One through Ten . List- 
ing One (page 102) is new.h, which 
holds the data structure for the com- 
mand line options, plus general defini- 
tions. Listing Two (page 102) is macro.h, 
the header file for macro substitutions. 
Listing Three (page 102) shows new.c, 
which creates and optionally edits one 


or more new C programs. Listing Four 
(page 102) is CreateCode.c, which ac- 
cepts the substitution structure, the in- 
put file, and the new C file to be creat- 
ed. It also reads the template file, fills it 
in with the contents of the substitution 
structure, and writes the results to the 
new C file. 

Listing Five (page 103) lists EditCode.c, 
which edits the new C file using either 
vi or whatever you have in your EDI- 
TOR environment variable. Listing Six 
(page 103) is GetOptions.c, which ac- 
cepts the command line arguments and 
a pointer to a structure that holds the 
options. It also parses the arguments in- 
to the structure. Listing Seven (page 104) 
shows Help.c, which prints help infor- 
mation to stdout. Listing Eight (page 
106) lists OutString.c, which decides 
which macro string to return based on 
the current token character. Listing Nine 
(page 108), ReplaceMacros.c, accepts 
the macro structure holding the vari- 
ables to be replaced, an input filepointer, 
and an output filepointer. It also does 
token substitution from input to output. 
Finally, Listing Ten (page 108) is Set- 
Macros.c, which sets up the MACRO 
structure used for token replacement. 

The “new” program works very much 
like the Unix program “nroff.” The com- 
mand nroff-mx file formats a file using 
a list of text formatting macros speci- 
fied by the -m-x flag. In a similar fash- 
ion, new -mx file creates a source code 
file using a template which is specified 
by the -mx flag. In both cases, x is sim-- 
ply a file extension which identifies a 
given template file in a given directory. 

There is no reason for x to be re- 
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For 80x86 Based MS-DOS Systems 


Absolutely nothing matches the speed and efficiency of assembly 
language. And nothing lets you code in assembly as fast as 
Spontaneous Assembly, the complete assembly language library. 
With MASM 5.1 or TASM, Spontaneous Assembly makes programming 
in assembly as fast and easy as coding in a high-level language— 
without the overhead. 


Over 700 ready-to-use functions and macros. 
Spontaneous Assembly puts a wealth of well-documented assembly 
routines at your fingertips, including ¢ A complete high-speed 
windowing system (4.5K) ¢ Near/far/relative heap management 
(650 bytes) © Direct/BIOS/DOS screen I/O (2.5K) ¢ Array management, 
sorting, and searching (400 bytes) ¢ Character/numeric/string 
conversion * Date and time manipulation ¢ Critical error management 
F e 32/64 bit integer math” 
e Program and environment 
control « Enhanced DOS 
file 1/O ¢ File and directory 
management ¢ String and 
memory manipulation ¢ Full 
Microsoft/Borland memory 
model support ¢ and much 
more—all royalty-free. 





For 80x86-based systems running DOS 2.0 or later. MASM 5.1 or TASM recommended. 

Base Two Development ® A Division of Acclaim Technologies, Inc. ¢ 11 East 200 North * Orem, Utah 84057 © (801) 222-9500 ¢ FAX (801) 222-9521 
International Dealers: AUSTRALIA Interplex Software (02) 906 7066 BELGIUM Meta Logix 32-(0)3-829 05 81 CANADA SoftChoice (416) 322-7638 
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SOURCE CODE GENERATOR 


(continued from page 28) 
stricted to a single character, although 
to save typing I’ve chosen single-char- 
acter names for my programming tem- 
plates. 

I have six*C programming templates 
which manage to cover most of my 
needs: 


e -mf writes a generic C function other 
than main( ). This is the default, be- 
cause I use it most often. Figure 1 
shows the template itself, while List- 
ing Four shows an example of the ex- 
panded template put to use. 

e -mm writes a generic main routine 
with the standard arguments argc 
and argv. 

e -mh writes the comment section of a 


#ifndef lint 

Static char * Gn Se rosia = 

"SHeader: $n.Se,v Sr Sy/S$c/Sd Sh: Sm: 
6S Sw Exp $5"; 


static char * Sn_Se_source = 
*"“SSources"; 


#endif 


/* 
* NAME: 
* Sn 
* 


* SYNOPSIS: 
oe Sn. (61) 
6 4 


* DESCRIPTION: 
* Su 

* 

* ARGUMENTS: 


* Describe any function arguments. 
* 


* AUTHOR: 
/ 
* 


" BUGS: 


* None noticed. 
* 


* REVISIONS: 
* 


Sc on (21) 
Sa{ 


/* 
* Functions, 


Variables. 


Processing. 


return (0); 





Figure 1: Generic function template 


basic C include file. 

e -md writes a short main routine which 
is nothing but a driver/testbed for a 
function. 

-ms writes a short stub function which 
is meant to serve as a placeholder. 
-mi writes a simple I/O routine which 
reads from stdin (standard input) and 
writes to stdout (standard output). 


Due to space constraints, all of the 
templates and fully commented versions 
of the source files are available elec- 
tronically; see “Availability” on page 3. 
The source code listings presented here 
are complete, except for comments. 

In order to make this as flexible as 
possible, I used a simple token-substi- 
tution scheme in each template. A tem- 
plate consists of straight text plus re- 
served tokens of the form $a, $b, and 
so on. The dollar sign specifies the (pos- 
sible) beginning of a token, and the first 
character after it tells the code genera- 
tor what is to be inserted in place of the 
token. If a dollar sign is followed by any 
character other than one of the ones 
recognized by the code generator, then 
the dollar sign and the character are sim- 
ply passed along to the program file be- 
ing generated. 

You don’t have to live with the dol- 
lar sign as the start of a token; the code 
generator allows the token delimiter to 
be specified in one of the header files. 
I use the dollar sign as the token de- 
limiter throughout this article. 

Each token has a specific meaning: 
$a will be replaced by the argument list 
to a function, $d by the current day of 
the month, and so on. A complete list 
of the recognized tokens and the sub- 
stituted text for each one is provided in 
Table 1. I did my best to keep them rea- 
sonably mnemonic. 

Example 1(a) shows a template for a 
header file, 1(b) some sample values for 
the reserved tokens, and 1(c) the re- 
sulting generated source code. The line 
numbers in the example are for your 
convenience; they are not included in 
the template or the generated code. 
Making the templates was easy; in each 
case, I picked a coding standard I could 
live with, copied a C program that re- 
flected it into the template file, and re- 
placed the guts of the program with 
tokens. 

The main data structure in “new” con- 
sists of a C structure which has one en- 
try for each reserved token. Some of the 
entries in the structure are filled using 
information from the command line, but 
most are not. You may notice that a lot 
of the entries in the C token structure 
are not filled from within the code gen- 
erator at all. This is because someday 
when I have time (translation: When I 
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SOURCE CODE GENERATOR 


_Replacement string for the token _ 


Arguments for the function. Full declarations separated by semicolons and 
newlines. 

Body of the function. Comes under the first comment after the variable 
declarations. Can include tabs and fests op 

Current month 

Current day 

File extension 

Functions declared internally 

Global variables separated by semicolons 

Current hour 

“Include” commands, #include <stdio.h> 

Function argument list. Variable names separated by commas © 

Current minute 

Function name 

Preprocessor macros — #define commands separated by newlines 

Revision level for a Revision Control System, the system | used in 
this case 

Current second 

Type of function, such as char * or int 

Function usage. This comes right after the first use of the name, and tells 
what the function is supposed to do. Not to be confused with the 
“Usage” section in the intro comments. This is the only “smart” macro: 
It won't let you put too many words on a line and starts each line with 
a comment indicator. The comment indicator is a space followed by an 
asterisk; “new” assumes that there is both a leading /* and a trailing */ 
on some other line. 

Internal variables separated by semicolons, tabs, and newlines 


- Who wrote the function 


Full name of the function author, extracted from the comment field in the 
/etc/passwd file 
Current year 





Table 1: Token substitution list 


Example 1: (a) Template file; (b) token replacement values; (c) generated code. 
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(a) 


#ifndef lint 
Static char . Sn $e xrcsid = 
"SHeader: Sn.Se,v Sr Sy/5c/$Sd Sh:$m:Ss Sw Bap $"; 
Static Ghar * Sn_Se_source = 
"SSources"; 
#endif 


* Header file for “Sn". 
* 

- Sloss 
af 
#include <stdio.h> 
fog" 

geet 

ne 

AB ATG 

Lay 

"program" 

ae : 1 

naA" 

"vogel" 

"OO" 


#ifndef lint 
Static char * 
"$Header : program.h,v 1.1 90/09/23 00:25:44 vodel Exp s7; 


program_h resid = 


Static char * 
"Soources": 
#endif 


program_h_source = 


Header fale for "program". 


SLog$ 
* / 


#include <stdio.h> 





(continued from page 30) 

get an initiative attack I can’t talk my- 
self out of), I want to write a screen-ori- 
ented version of the source code gen- 
erator which would allow someone to 
fill some or all of the entries in the to- 
ken structure interactively. Figure 2 
shows pseudocode ‘which lays out the 
structure of the code generator as it cur- 
rently exists. 

I’m a big believer in separating the 
user interface part of a program from 
the part that does the actual work. Keep- 
ing all of the information needed to gen- 
erate a C function within a single data 
structure makes a special-purpose code 
generator much easier to write, because 
it doesn’t matter where the information 
stored in the token structure comes 
from: an input screen, another program, 
a file, or any combination thereof. The 
code generator needs only a filled to- 
ken structure. 

If I ever had to write a “mass-code” 
generator to read a bunch of input files 
and generate a bunch of functions and 
programs, the token structure would 
make it possible for me to write code 
that looks like Example 2 

In this case, getinfo would read a file 
and fill the token structure, and put- 
function would read the stuff in the to- 
ken structure and write the C code. The 
input file format has no necessary con- 
nection to the output file format, and 
this is a case of two totally dissimilar 
data structures which have to peaceful- 
ly coexist in the same program. When- 
ever you have a case like this, either 
marry the data structures or divorce 
them, but don’t let them live in sin. A 
divorce seemed the cleanest solution; 
input and output functions only com- 
municate through the token structure, 
and otherwise know nothing about each 
other. 


Why a Code Generator? 
Whether you use this code generator, 
buy a commercial one, or gird up your 
loins and roll your own doesn’t matter. 
What does matter is getting one and us- 
ing it, and here’s why: 

Consistency This is one reason | 
can’t emphasize enough. With so many 
projects involving multiple programmers 
and even multiple teams, anything that 
helps communication between the work- 
er bees isn’t to be sneered at. Consistent 
code appearance doesn’t guarantee un- 
derstandable code, but it doesn’t hurt, 
and a code generator makes enforce- 
ment of coding standards easier. 

As I see it, the main problem with 
coding standards is that they don’t take 
into account the fact that coding usual- 
ly boils down to some poor schlub typ- 
ing at a terminal. If you don’t at least 
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C BEYOND 640K DOS 


Let Phar Lap’s new 
286|DOS-Extender™ turn 
your Microsoft C compiler 
into a multi-megabyte 
power tool! 


It’s never been so easy to 

C beyond 640K DOS. 

You've been hearing a lot lately about DOS 
Extenders and their ability to let you create 
large programs beyond the 640K DOS limit. 
Now Phar Lap® makes it easier than ever! 
With your copy of Microsoft C and our new 
286IDOS-Extender you've got all the tools 
you'll need to quickly and easily build multi- 
megabyte protected-mode applications - 
often by simply relinking without making 
source code changes. 286|DOS-Extender 
enables you to build programs that have 
room for more features and capabilities 
without having to suffer with overlays or 
EMS. But the best news is you don’t have 
to give up any of your Microsoft C tools, 
including your CodeView debugger. 


And with 286|DOS-Extender you'll not only 
have plenty of memory for your applications 
but also for the Microsoft C 6.0 compiler 
itself. No more crippling “Out of Heap” 
messages when compiling under Windows 
or with networks. 


Total Compatibility 

Because 286|DOS-Extender is embedded 
into your program, it is invisible to the end- 
user. Your program looks exactly like any 
other DOS application. There’s no new 
operating environment for your end-users 
to buy or learn. Any of the 30 million 80286, 
386, or 486 PCs that can run MS-DOS or 
PC-DOS can run 286|DOS-Extender. And 
because Phar Lap products support the 
XMS, VCPI, and DPMI standards, 
applications built with 286|DOS-Extender 
can run under a variety of environments 
besides MS-DOS, including DESQview 
and all modes of Microsoft Windows. 


Field Proven Technology 


Phar Lap is also the developer of the award- 
winning 386|DOS-Extender™, which has 


been used in over 600 applications including ° 


AutoCAD 386 and IBM Interleaf Publisher. 


386|DOS-Extender is designed for 
programs that require the ultimate in 32-bit 
speed and performance on 386 and 486 PCs. 
By utilizing either of our DOS-Extender 
technologies, industry leaders are keeping 
their competitive edge and delivering all 

the functionality and capabilities that their 
customers have been asking for. 


So if DOS is looking smaller than ever, 
call Phar Lap today. 


And C what it’s like beyond 640K. 
Phar Lap 286|DOS-Extender SDK 


We open a world of memory. 


Phar Lap Software, Inc. 
60 Aberdeen Avenue 
Cambridge, MA 02138 
617-661-1510 

FAX 617-876-2972 
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AutoCAD® - Autodesk, Inc.; IBM® - IBM Corporation. 
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SOURCE CODE GENERATOR 


“begin / : 
look for some sensible command line options and one or more files to create 
if (none found) 
then 
print help 
bail out 


endif 

for (each file on the command line) 

do 
set up the structure holding the tokens to be substituted 
filter text from the template file to the output program, 

doing appropriate token replacement 

edit the output program 

done 

end 





Figure 2: Pseudocode that illustrates the structure of the code generator 


Graphing and 
development that’s as easy 
as opening a window. 


troducing Graphics EE 
Graphics Server * lu ath 3-D Bar Graph 
SDK Version 1.1. EB Pr rvence BP cormany 
The most cost- 
effective, time- | 
efficient way to = me Pie Chart 
integrate powerful 15 
graphs and charts ei 
into your 
Windows™ 
applications. 
Here’s why. 


5.7 eo 


Auto-graphing European Sales % 

Until now, creating M@ irctand = France = Holland © Germany 
graphs and charts spain = Dicoland 1) Norway 

in Windows was a : 

difficult and tedious task. But, in addition ming platforms, including ‘C,’ ToolBook,® 
to its 130 standard functions, Graphics Superbase® 4, SQLWindows,™ and others. 


Server SDK offers 16 powerful “Auto- oe 

mau of Royalty-free distribution 
sc oh ho pellet tps 2 Ou bs . Applications incorporating Graphics Server 
ee se eee graphics can now be distributed 


seven lines of code! You'll save free of license fees. No more financial or 
development time—and money. legal headaches 


Muttiple choice Money-back guarantee 


eid ei ome ie Graphics Server SDK is backed with a 30- 
Chart types, including 2-D an day money-back guarantee. To place an 
r (stacked, clustered, or simple), order, request a free demo 


2-D and 3-D pie, area, Gantt, scatter, disk ‘Se pBeaNeadiand 
polar, log-log/log-linear, line, high-low- information’ esl wll frees 


close, polar, X-Y, and statistical. 
Client/server technology 1 800 231-1293 
BBS 206/941-2492 


Graphics Server SDK’s fast, memory- 
efficient DLL and DDE methodology 
provides links to a variety of program- 
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(continued from page 32) 

try to make that person’s life easier 
when imposing your standard, forget it; 
you'll get lip service at best and outright 
rebellion at worst. In the area of soft- 
ware, a poor solution is actually worse 
than none at all, because it lulls people 
into thinking that the “problem” is be- 
ing “solved.” (Isn’t this how we wound 
up with Ada?) 


One of the things I 

admire most about 

Unix is what they’ 
left out 





Beauty There’s something about a 
well-crafted piece of code that makes it 
very easy on the eyes, but occasional- 
ly appearance suffers when deadlines 
loom. Instead of sprucing up every func- 
tion by hand, spruce up your templates 
and let the code generator do the bor- 
ing stuff. 

Generality The templates and code 
here are presented in C, but there is no 
reason for it to be that way. One code 
generator can handle C, Pascal, Modu- 
la-2, or whatever you have the patience 
to write a template for. I used one-let- 
ter template names because I’m not a 
typing fan, not because it’s a require- 
ment of the code generator. 

Economy One of the things I ad- 
mire most about Unix is what they left 
out. Unix handles files, processes, and 
nothing else. This type of code gener- 
ator encourages you to develop your 
code one function at a time, but Unix 
doesn’t “know” anything about func- 
tions. To teach Unix about functions, 
you can use a tool such as “ctags” to 
make editing source files easier, but 
“ctags” must be kept up to date every 
time you make a significant change to 
your source. The code generator en- 
courages the idea of “one function, one 
file,” and if you make a one-to-one cor- 
respondence between functions and 
files, then Unix knows about functions 
too. This enables you to use the pow- 
er of the Unix toolset (and mindset) on 
each separate compilable portion of a 
C program, and for me that equates to 
finer control over the whole process. 

I certainly respect companies that care 
enough about their programmers to buy 
CASE tools, but I’ve noticed that the cur- 
rent products have a bit of an attitude: 
“Be reasonable, write your code, and de- 
sign your products OUR way.” Instead 
of buying a CASE tool and changing 
your methods to suit the machine (or 
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another vendor), why not expand the 


. Capacities of the operating system yqu 


have now? 

Speed Placing one function in one 
file puts a permanent end to the game 
of “let’s find the function,” and in com- 
bination with a decent “make” tool for 
generating executables from a list of de- 
pendencies, it also ensures that you are 
doing the minimum amount of recom- 
pilation when you modify source dur- 
ing development. Goodbye “ctags”! 

Program Tracing [If I write any pro- 
gram which is going to receive wide- 
spread use by a lot of different people, 
I like to impress the customer by being 
aware of problems before I get the irate 
phone call, not after. One easy way to 
do this is to build an ErrorMsg function 
which accepts the arguments: ErrorMsg 
(file, line, format, arg1, arg2, ...) where 
file is the name of the function (stored 
in the _ FILE __ preprocessor variable), 
line is the line number at which the prob- 
lem occurred (stored in the _ LINE _ pre- 
processor variable), format is the output 
format used by functions in the printf 
family, and the remaining arguments are 
variables which get referenced from with- 
in the output format. The ErrorMsg func- 
tion appends an appropriate message to 
an error file, and just before the main 
routine exits, another function, AnyEr- 
rors, checks the error file to see if it con- 
tains anything. If AnyErrors returns TRUE, 
a third function, MailMsg, mails the er- 
ror file to me. 

The important point here is that with 
one function per file, the _ FILE__ pre- 
processor variable always tells me ex- 
actly what function is messing up, so I 
don’t have to look at a source listing 
somewhere and mutter “Let’s see, line 
600 is function foobar, I think, but what's 
at line 700?” I know immediately what 
functions were called in what order, and 
if the ErrorMsg function was called 
enough times with enough information, 
I may have everything I need to fix the 
problem without having to use a de- 
bugger. I’ve always believed that if you 
have to fire up a debugger to fix a prob- 
lem, then you have a much more basic 
problem with your code that a debug- 
ger can’t fix. 

Flexibility Having one function per 
file makes writing all kinds of neat tools 
much easier. For example, I have an- 
other program called “doc” which looks 
through one or more directories, and 
prints the comment header from a giv- 
en function, in case I forget the order of 
the arguments or something. It won’t 
cure cancer but it does save time, and I 
didn’t have to put in too many late 
evenings to write it, either. doc reads a 
function name from the argument list, 
appends .c to it if it’s not there already, 
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Po as (getinfo (input file, pointer to the C token structure) ) 
e) 


putfunction (output file, pointer to the C token structure) 


one 





Example 2: A flexible data structure leads to code that looks like this. 


and uses the Unix access call to see if a 
file by that name exists in one of sever- 
al directories. If such a file is found, the 
comment header is written to stdout. 


Conclusion 

Of course, you can make just as big a 
mess with a code generator as without, 
and you can do it faster; a fool with a 
tool is just a well-equipped fool. Like 
any other tool, a code generator can save 


our Profi 


beaucoup time only if it’s used with some 
common sense. I tend to be wary of any 
CASE product that claims to let you write 
code “without thinking about it;” anyone 
who writes code for someone else’s use 
without thinking is dangerous. 


DDJ 
(Listings begin on page 102.) 
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A Lisp-S 





tyle 


Library for C 





Adding essential features of Lisp to C simplifies 


handling of complex data objects 





has become one of the most 

popular and widely used pro- 

gramming languages, and for 

good reasons: You can compile 

the same C program to run on 
a wide variety of machines; .C is a rela- 
tively small and easy-to-learn language; 
it has a rich set of operators and a con- 
cise notation; and it lets you deal di- 
rectly with primitive machine objects, 
such as characters, numbers, and ad- 
dresses. 

On the other hand, C provides only 
limited support for composite data ob- 
jects, having only fixed-size arrays and 
structures in its repertoire of built-in 
composite types. The language lacks 
general mechanisms for: 


e Creating and operating on arrays or 
lists that vary in size and/or whose ele- 
ments may not all be of the same type 

e Automatically allocating and deallo- 
cating the memory used by dynami- 
cally created objects 

e Reading and writing external textual 
representations of internal program 
objects and symbols 


Because of these deficiencies, if you 
want to write a C program that involves 
complex data objects of varying sizes 


Daniel is an independent consultant 
who designs software tools, builds 
pattern-matching systems, and does 
software-engineering research. His 
book, Structured Assembly Language 
Programming for the Z80, was pub- 


lished in 1985. Contact him at 1 


Jackie Court, Chester, NY 10918. 
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and types, you have to build your own 
ad hoc mechanisms for manipulating 
those objects. You often end up “rein- 
venting the wheel” and obfuscating the 
real work of the program. 

Lisp and similar problem-oriented lan- 
guages excel where the machine-ori- 
ented C is deficient. These languages 
have powerful features for dealing with 





symbolic and dynamically created data 
structures at a high level. Having en- 
joyed and made productive use of the 
expressive power of several dialects of 
Lisp, I set out to save myself from the 
tar pits of C by creating a package of C 
macros, functions, and data types —a 
Lisp-Style Library for C—that could im- 
itate some of Lisp’s capabilities in a C 
environment. These capabilities include: 


e Variable-length lists containing ele- 
ments of arbitrary type (“Lisp” is an 
acronym for “LISt Processing”). 


e Self-identified data objects 

e Symbols, symbolic data, and symbolic 
input/output 

e Systematic memory recycling 


I’ve successfully used the Lisp-Style 
Library in my own work, most recent- 
ly in the construction of a general-pur- 
pose compiler (a kind of interpretive 
version of Unix’s /ex and yacc tools). 
The availability of the Lisp-like language 
features lets me put more effort into ef- 
fective design and less into details of 
implementation. At the same time, the 
extended capabilities do not require 
a special language preprocessor or 
changes in syntax —standard C mech- 
anisms: are used —nor do they impose 
a general sacrifice of C’s space and time 
efficiency. 


Lists 

Consider a program called process 
whose command line requires a file- 
name argument that may include wild- 
card characters. For example, process *.c 
is a request to process every file in the 
current directory having the extension 
“\c.” Inside process, you need to have a 
list of unambiguous filenames. Assum- 
ing your operating system doesn’t au- 
tomatically handle wildcard expansion 
on the command line, you might like 
also to be able to write something like 
the code of Example 1, where source_ 
file_names is a variable whose value is 
a list (of any length) of filename strings; 
process_ file is a function whose argu- 
ment is a filename string; and for_each 
is a function that causes process_ file to 
be sequentially applied to each element 
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iler and Tools 


for 386 Extended DOS 


VAN ROO NUE OI TI5 
for Win 


(§] Interactive source- 
level debugger 


[§] Generates high- 
performance code for 
32-bit protected mode 


[§} Microsoft source and 
library compatible 


(i) Fast, tight code 
{) Profiler 


[] Protected-mode 
version of compiler 


[(] Graphics library 


} 100% ANSI C and 
SAA compatible 


Run-time compatible 
with WATCOM 
FORTRAN 77/386 





oon Microg ‘ ‘i Code. 





Experts Agree on WATCOM C: 


“When Novell went looking for a 32-bit compiler for use with the NetWare 386 developer’s kit, the 
company selected WATCOM’s...It’s clear that Novell chose wisely; this product is a. winner.’ 
Fred Hommel, BYTE, December 1989 


“WATCOM C/386 is a fantastic new ANSI C compatible compiler for 386-based PC’s...If you have 
written your application in Microsoft C, you will love this compiler:’ 
J. Richard Hines, Electronic Test, December 1989 


“Microsoft library- and source-compatibility makes WATCOM C7.0/386 ideal for porting DOS 
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of the source_file_names list. 
~ “You can achieve the ability to ma- 


nipulate variable-length lists in this sim- 
ple, direct way by constructing them as 
singly linked chains of pointer pairs — 
what Lisp calls cons cells. In the Lisp- 
Style Library, a Pair is a two-component 
struct, as shown in Figure 1. The com- 
ponent names car and cdr (pronounced 
“car” and “could-er”) long ago lost their 
original meanings, but have been re- 
tained by the Lisp-using community to 
refer to the first and second halves of 
pairs, respectively. Object is a C point- 
er to a self-identified data object. 

To make the discussion of list build- 
ing easier, let’s use Lisp’s standard no- 
tation for lists. Elements enclosed by 
parentheses and separated by white 
space represent a list. For example, 
(“‘prog-1.c”, “prog-2.c”, “prog-3.c”) is 
a list of three items, each of which is a 
string. This list could be the value of 
source_file_names. An empty pair of 
parentheses () represents a sequence 
containing no elements—the empty list. 

Let’s also use a common schematic 
representation for Lisp data called box- 
and-poinier notation. In this represen- 
tation, each Object is shown as a point- 
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er to a box, with the box containing a 
representation of the object’s data. The 
box for a pair is actually a double box, 
containing a car pointer in its left half 
and a cdr pointer in its right half. 
Figure 2 shows the box-and-pointer 
notation for the sample source_ file_ 
names list of three strings. Notice that 
the chain of-pairs is terminated by hav- 
ing the last pair contain a cdr whose 
value is NULL, indicated by the slashed 
box. In addition to its function as a list 
terminator, NULL (called nil in Lisp) can 
also be considered equivalent to the 


empty list: NULL and () represent the 


same entity. 


List Constructors 

Functions for building lists are called 
constructors, the most fundamental of 
which, called first_ put, adds an Object 
to the front of a list by allocating a new 
pair and setting its car to point to the 
new Object and its cdr to point to the 
rest of the list. Lisp calls this function 
cons (for “construct”). 

In Example 2, three nested calls to 
first_ put build the source__file_names 
list, back to front, starting with the list 
terminator, NULL. The calls to make_ 
string are required to convert standard 


‘eons’ cell for creating linked lists */ 





Figure 1: The Su B6ihe Library defines F Pair” a two- _componeni struct that is the 
basis for all linked lists. Object is a C pointer to a self-identified data 


object. 


oon fe pees ied source_ . file. eee _ . 





Example 1: A simple assignment statement and function call create and 


process an arbitrarily long list of strings. 










‘source. _file names -  . 










rst_pu cog 
‘Tiret pee = 


prog- 1.07), = 
ov prog-2.c"), 
ck ( "prog-3.c"), NULL) ) Ve 





prea i= Three nested calls t to > fire _put build a three-element list, Acts to 
front, starting with the list terminator NULL. 


/  . ‘source_ file. _names- 


= list (ake tri 





Example 3: A single invocation of the list function builds a three-element list. 
NULL terminates the function’s variable-length argument list. 


names = NULL; 


name = get_ first _name (£ilespec) 


we (name f= oe 


 Aames = 


S - . = get next. _name sleapes 





Exons This pads fragment Which is be part of Soa wienae 
constructs the filename list names in order (front to back) using last_put. The 
list starts out empty as a result of the first assignment statement. 
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C strings into self-identified Objects of 
type STRING. 

Alternatively, the code in Example 3 
accomplishes the same piece of list 
building with a single invocation of Jist. 
This function uses ANSI C’s mechanism 
for handling a variable number of ar- 
guments, with a NULL argument termi- 
nating the argument list. In true Lisp sys- 
tems, functions can determine the 
number of arguments supplied to them 
at runtime without resorting to a spe- 
cial terminator argument. 

If you build a list one item at a time 
with successive, nonnested applications 
of first_ put, you end up with the first 
item added as the last item on the list. 
To avoid this reversal, you can use 
last_ put, which adds an item to the end 
of a list. For example, the code frag- 
ment in Example 4, which might be part 
of expand_wildcards, constructs a file- 
name list in the same order as filenames 
are retrieved by get_ /first_name and 
get_next_name. Note that the filename 
list, names, starts out empty as a result 
of the first assignment statement, names 
= NULI;. 

If you do need to reverse an already 
constructed list, use reverse. This func- 
tion returns a new list (comprising new- 
ly allocated pairs distinct from those 
making up the old list) whose elements 
are listed in reverse order of those in 
the old list. 

The last constructor function is ap- 
pend, which splices together two lists. 
(In true Lisp, append can take any num- 
ber of lists as arguments.) Example 5 
displays a fragment of code that uses 
append to construct a list of unam- 
biguous source_file_names from a list 
of command-line arguments, each of 
which gets its wildcards expanded. 


List Selectors 

Functions for taking lists apart or get- 
ting access to their elements are called 
“selectors.” The definition of the Lisp- 


Style Library function for_each, Figure 
3, illustrates the two fundamental se- 
lectors, first and but_ first. 





Figure 2: Box-and-pointer notation 
shows how chains of pairs link togeth- 
er to create a list of three strings. The 
chain of pairs is terminated with the 
special value NULL, indicated by the 
slashed box. 
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(continued from page 38) 

first (called car in Lisp) returns the 
first element of its argument list, and 
but_ first (called cdr in Lisp) returns the 
list that begins with the second element 
of its argument list —that is, everything 
but the first element. The while loop 
in for_each implements the general 
scheme for traversing a list by succes- 
sive applications of but__/first. You can, 
by the way, determine the number of 
elements in a list before attempting to 
process them all by using the length 
function. 

nth provides nonsequential access to 
the elements of a list, as if it were an 
array. Indexing begins at zero, so nth 
(list, O) is equivalent to first (list. 

Obviously, this use of lists is ineffi- 
cient, since nth must traverse 1 point- 
er links before arriving at the desired 
element. For more efficient nonse- 
quential access to sequential data, the 
Lisp-Style Library provides an Object of 
type VECTOR. /ist_to_vector (list) returns 
a dynamically allocated VECTOR big 
enough to hold all the elements of list; 
the macro invocation vector (vec) [n/ re- 
turns the mth element of vec; and the 
macro invocation vector_length (vec) re- 
turns the number of elements in vec. 

Remember, however, that unlike VEC- 
TOR objects (or C arrays for that mat- 
ter), lists can grow and shrink; they do 
not require an index value for access; 
and elements can be inserted or delet- 
ed anywhere. With a few simple, index- 
less access procedures, lists can serve 
as sets, stacks, queues, and associative 
arrays (tables). The Lisp-Style Library 
functions is_member, assoc, and index 
(Listing Three, page 113), and the 
macros push and pop (Listing One, page 
112) constitute a start in this direction. 

Of course you pay for all this flexi- 
bility: PAIRs occupy memory space and 





must be recycled when they become 
obsolete; access to list elements requires 
an additional level of indirection Gwhen 
compared to an array of fixed-size da- 
ta objects); and the time to access a list 
element is proportional to its position 
in the list. : 


Mapping Functions 
Mapping functions transform one list in- 
to another, just as programs in a Unix 
pipeline transform one file into anoth- 
er. They promote a “signal-processing” 
view of programs that can be a power- 
ful organizational method. | 

Suppose, for example, that the func- 
tion integers generates the sequential 
list of integers in the range specified by 
its input arguments, that square returns 
the square of its input, and that sum re-— 
turns the sum of the integers in its in- 
put list. Then sum (integers (1, 10)) re- 
turns the sum of the integers from 1 
through 10; map (square, integers (1, 
10)) returns a list of the squares of the 
integers from 1 through 10; and, as 
shown in the signal-flow diagram of Fig- 
ure 4, sum (map (square, integers (1, 
10))) returns the sum of the squares of 
the integers from 1 through 10. (You 
can run these examples, using Lisp’s 
comma-free prefix syntax, in the Tiny 
Lisp Interpreter demonstration program 
of Listing Seven, page 123. See the com- 
ments in that listing for detailed in- 
structions. ) | 

In other words, map applies a func- 
tion to each element of an input list, 
and collects the results of that appli- 
cation in a new output list of the 
same length, thus transforming the 
list. map_no_nils works like map, ex- 
cept that it discards NULL results, pos- 
sibly resulting in an output list that 
is shorter than the function’s input 
list. This behavior makes map_no_ 








ie aif! 


Example 5: This code fragment uses append to construct a list of 
unambiguous source_file_names from a list of command-line arguments, each 


of which gets its wildcards expanded. 





Figure 3: The Lisp-Style Library mapping function for_each demonstrates the 





pte 


classic method for walking down a list by successive applications of but_ first 
while fetching each element for processing with first. (Function_1 is a pointer to 
a function of one Object argument, returning an Object result.) 
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nils useful for filtering a list (by re- 
moving some elements) in addition 
to transforming it. 

The list-related functions are imple- 
mented in Listing Three. 


Generate 


Transform 


Objects 

Up to this point, we’ve been assuming 
that the elements of a list are all of the 
same type. But suppose we want to 
create a list to represent the expression 


Accumulate 


: integers (1,10) map (square; ... 





(2... 10) (14... 100) 


Figure 4: Viewing a program as a signal-processing system, as shown in this 
diagram, can be a powerful organizational method. integers generates a 
“signal,” map (square ... ) transforms it, and sum accumulates a single nonlist 
result. 


Figure 5: Box-and-pointer notation shows how pairs can be used to 
represent nested lists. Here, the third element of the top-level list is itself a 
three-element list. 
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CAE CB 57). 

If we treat the written form of that ex- 
pression directly as standard list nota- 
tion, then we have the list whose three 
elements are A, * and a nested list also 
containing three elements (B, +, and 3). 
Allowing the third element of the list to 
be itself a list results in the box-and- 
pointer notation of Figure 5. The nest- 
ed lists can also be viewed as the tree 
of Figure 6. 

For a C program to interpret correct- 
ly the data structure diagrammed in Fig- 
ures 5 and 6, list-traversal procedures 
must be able to determine what each 
pointer points to. Is this a pointer to a 
pair or to a primitive object? If several 
types of primitive objects may be en- 
countered —and we've already seen 
STRINGs and VECTORs —what-type of 
primitive object is this a pointer to? 

The need to determine the type of 
data objects at runtime is the reason for 
the creation of the Object type, which 
is defined as a pointer to a self-identi- 
fied data object. To avoid the awk- 
wardness of excessive precision, I will 
also informally refer to the object itself 
as an Object. 

Objects have two components: type 
and value. The type of an Object serves 
as an identifying “tag” for the value that 












V-Edit io dit heb 
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follows. The type tag is a small integer 
(or C enum constant) with the possible 
" values UNDEFINED, SYMBOL, STRING,’ 
INTEGER, FUNCTION, PAIR, VECTOR, 
or TOKEN (see Listing One). Following 





Figure 6: Nested lists are equivalent to 
trees. In this interpretation of the list 
diagramed in Figure 5, only the leaf 
nodes are named. 


Switch (type (obj)) 
{ 
case SYMBOL: 
write_symbol (obj); 
break; 


case STRING: 
write string (obj); 
break; 





Example 6: This code fragment from 
pp_object (“prettyprint object”) 
demonstrates dispatching according to 
the type of an Object, determined at 
runtime. 







(a) 


obj = make_symbol (char *) ; 





print_name 


Value 


(d) 


obj = make_function (Function) ; 


m — obj 


_& 


obj = make_token (Object, char *) ; 


Symbol_Entry 
symbol_value win 


type (obj) 


function (obj) 
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the tag is the value part of the Object, 
whose contents depend on the Object’s 
type. Figure 7 shows, for each type of 
Object, the make_ function that creates 
the Object by dynamic allocation from 
the C heap, the macros that access the 
components of the Object, and the Ob- 
ject’s memory layout. 

To see how the make_ functions and 


access macros of Figure 7 are used, let’s: 


look at two short examples. The state- 
ment s = make_string (“string 1”); re- 
sults in the creation of a new dynami- 
cally allocated Object of type STRING. 
Consequently, the macro call type (s) re- 
turns STRING, while the macro call 


string (s) returns a (char*) pointer that 


can be used in regular C expressions 
such as strcmp (string (s), “string 2”). 
Similarly, if i = make_integer (99); then 
type (i) returns INTEGER and integer 
(i) returns an int that can be used in 
regular C expressions such as if (inte- 
ger (i) < O). 


Polymorphic Functions 

Because the type of an Object can be 
determined at runtime, you can write 
polymorphic functions —that is, func- 
tions that can be applied to different 
types of input and whose precise action 
is determined by the type of that input. 
For example, the Lisp-Style Library’s 


(b) 


obj = make_string (char *) ; 


print_name 


+—_—_— obj 









+—— string (obj) 






value 


value 
@ 


char[ ] 


(e) 


obj = first_put (Object, Object) ; 


type (obj) 


first (obj) 


but_first (obj) 


} 
————— oF 
wpe(ob) {[ Toren 
—_—_——. token (obj) 
F tsone - a 


Figure 7: All Objects consist of a type tag— such as the integer constants SYMBOL, STRING, or PAIR— retrieved by means 
of the type macro, and a value, whose contents depend on the Object’s type. In the figure, obj is a variable of type Object, 
the result of invoking one of the make_ functions. Object, Symbol_Entry, Pair, Token, and Function are types defined by 
the Lisp-Style Library (Listing One). symbol, symbol_value, string, integer, function, pair, first, but_first, vector, 
vector_length, and token are macros that access the value components of Objects (also Listing One). The Object layouts 
shown assume 2-byte pointers and 2-byte integers. 
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———— obi 
Pe 
vector_length (obj) 
Pair 
a 


Dp_object ““prettyprint object”), Exam- 
ple 6, fetches the type of obj using the 
type access macro and dispatches ac- 
cording to the fetched value. 
Sometimes it’s simpler to use a type 
predicate (a macro that returns TRUE if 
its argument is of a particular type and 
FALSE otherwise) to determine the type 
of an Object. Table 1 lists the available 
predicates, and the eval (“evaluate”) 
function of Listing Seven provides sev- 
eral examples of their use. Incidentally, 
as in true Lisp, a NULL object or any non- 
NULL object that is not a list is consid- 
ered to be primitive and called an atom. 


Symbols 

So far I’ve described the use of PAIRs 
as a general method for creating lists 
and trees and the advantages of.using 
data objects that carry their own type 
tags. Now let’s look at the Lisp-Style Li- 
brary’s adaptations of two of the sym- 
bol-manipulation features of Lisp that 
make that language so powerfully ex- 
pressive: SYMBOL objects and symbol- 
ic input/output of data. — 

An Object of type SYMBOL has two 
essential properties: a unique print_ 
name string and a unique address. In 
addition, a SYMBOL can be associated 
with a value (of type Object). 

The read_object function (Listing Five, 


(c) 


obj = make_integer (int) ; 


<+<——— bj 
type (obj) {| Integer | 





(f) 
obj = make_vector (int); _ 


+ 
type (obj) 








int 


—_—— vector (obj) 


Object [ ] 


Dr. Dobb’s Journal, August 1991 


USE C-WORTHY 


710 BUILD YOUR UI. 


AND YOU'LL GAIN SOMETHING 


IN THE PROCESS. 





MOMENTUM. 


©1991, Solution Systems. All rights reserved. C-Worthy User Interface Development 
System runs on IBM PC/AT and 100% compatibles. Requires a hard disk and 256K 
RAM. Supports Microsoft C 5.1 and above, Borland Turbo C and C++. No royalties. 
Solution Systems, 372 Washington Street. Wellesley, MA 02181 


Get your application off to a 
great start with C-Worthy — The 
User Interface Development 
System. @® C-Worthy combines 
a powerful screen designer — 
cwArchitect — and a comprehen- | 
sive function library to give you 
all of the sophisticated interface 
elements you need. Quickly. 
emma @&® Build menus, 

Ss, and messages without 
coding. Prototype without recom- 
piling or relinking. New version 
2.0 includes support for CUA- 


compliant applications and EGA 





and VGA graphics modes as well 
©, as superior internation- 
alization capabilities 
and interactive color 
configuration. 4» 
When you build your 
applications with 
C-Worthy, they will 
be dependable, easy to use, and 
consistent from module to mod- 
ule, job to job. And you'll have a 
lot more time to work on the heart 
of your application — or simply to 
relax. @® C-Worthy sells for $449 
without source and $649 with 
(plus shipping). Try C-Worthy for 
30 days. If you're not happy, just — 
return it to us and we'll send you 
your money back — no questions 
asked. @® You have nothing to 


lose. Except your momentum. 


Order your copy of C-Worthy 


today. Call Toll-free 
1-800-821-2492 


Solutionsystems 


THE PHYSICS OF PROGRAMMING 
‘CIRCLE NO. 230 ON READER SERVICE CARD 


(continued from page 42) 

page 119) efficiently converts character 
strings —the external textual represen- 
tations of SYMBOLs — into unique in- 
ternal SYMBOL objects, while write_ob- 
ject (Listing Three) converts internal 
SYMBOL objects into their external tex- 
tual representations as strings. 

The properties of symbols make them 
useful as identifiers of all sorts. Any- 
where you might use a #define or enum 
constant, you can probably use a sym- 
bol and gain the advantage of symbolic 
textual input and output. This is partic- 
ularly handy for testing and debugging. 
Listing Two (page 112) contains the dec- 
larations of symbols used inside the 


LIS P-S EY bebaet ik Ae Y 


Lisp-Style Library itself, mainly to rep- 
resent the character and token types rec- 
ognized by the Lisp input reader (see 
Listing Five and “The Reader” section 
that follows). 

I have used symbols as reserved 
words and identifiers in several “little 
languages” including one for defining 
menus, one for defining rules in an ex- 
pert-system knowledge base, one for 
defining text-formatter output, and even 
one for defining the grammar of another 
little language. In fact, if you’re willing 
to use standard list notation as the syn- 
tax of your little language, you can cre- 
ate a program to read an input file in 
the language and convert the informa- 
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tion into your program’s internal data 
structures with very little effort (as be- 
fits a little language). The Tiny Lisp In- 
terpreter (read-evaluate-print loop) of 
Listing Seven is yet another example of 
the utility of symbolic I/O. 

Listing Four (page 118) shows the 
simple hashed symbol-table scheme that 
allows read_object to efficiently look up 
print_name strings. The symbol table is 
an array of hash buckets, where each 
bucket is a list implemented, of course, 
with the list constructors I described ear- 
lier). Jookup finds a symbol in the table 
by first calculating its hash index (with 
hash) and then walking down the cor- 
responding hash-bucket list (with but_ 
firsb until it finds a matching string. in- 
stall adds a new symbol by inserting it 
(with first_ put) at the front of the calcu- 
lated hash-bucket list. intern ““internal- 
ize”) always returns a unique SYMBOL 
object, either one found with lookup or 
one just created and added to the sym- 
bol table by install. 


The Reader 
Like the reader in many Lisp systems, 
the reader (or “lexer”) for the Lisp-Style 
Library uses a general-purpose mecha- 
nism based on a read-table. A read-table 
specifies, for each character that may 
be encountered in the input, the type 
of that character. In this case, the al- 
lowed types are WHITESPACE, COM- 
MENT_MARKER, SPECIAL, STRING_ 
MARKER, and ENDFILE_MARKER. The 
core function of the reader, get_token, 
dispatches on the type of the current 
character (fetched from read_table via 
the char_type macro). Several of get_to- 
ken’s auxiliary procedures (get_white- 
space, get_string, and get_word) also ref- 
erence read_table. 

As implemented in Listing Five, the 
reader: 


e Ignores white space, including spaces, 
tabs, newlines, and formfeeds. 





Table 1: Type predicates, implemented 
as macros, in the Lisp-Style Library for 
C (Listing One). A type predicate 
returns TRUE if its argument is of the 
type specified in its name and FALSE 
otherwise. As in true Lisp, an atom is 
the NULL object or any non-NULL 


object that is not a list. 
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tools you need. A single keystroke lets 
you keep track of product development 
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Control for the Professional. 
Analyze product performance 
with CHARGE. And nothing 

beats dBRIEF for tailoring 
BRIEF to Dbase or Paradox. 
@® BRIEF sells for $249 
(plus shipping) and comes 
backed with our 30-day, 
* money-back guarantee. @B Once 
you start working with BRIEF 3.1, 
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_ ¢ Ignores everything between a semi- 


colon (;) and the following newline, 
unless the semicolon is part of a quot- 
ed string 

e Recognizes parentheses (_) as list de- 
limiters, and converts the external rep- 
resentation of lists into an internal rep- 
resentation consisting of chains of 
PAIR objects 

e Converts characters between pairs of 
double quotes (“”) into STRING ob- 
jects, with the following subset of C’s 
backslash (\) escapes correctly inter- 
pero: Ne, NZ NAN” 

e Converts sequences of constituent 
characters (everything but white space, 
semicolon, . parentheses, double 
quotes, backslash, and end-of-file) in- 
to SYMBOL objects, unless the se- 
quence begins with a decimal digit 

e Converts sequences of decimal digits 
into nonnegative INTEGER objects 


(Notice that SYMBOLs, unlike C identi- 
fiers, can include characters other than 
letters, digits, and underscores. This 
means that a little language based on 
the Lisp-Style Library could include 
symbols such as +, pair?, or list->vector.) 

On the output+side, write_object pro- 
duces textual representations of Objects 
that conform to read_object’s input for- 
mat. In other words, you can write an 
Object to a file with write_object and read 
back an equivalent Object with read_ob- 
Ject. Uf the Object in question is a SYM- 
BOL, then the two Objects will be not 
only equivalent but also identical.) 

write_object also produces textual rep- 
resentations for VECTORs and TOKENs 
using Lisp-style #() and #S(_) notation, 
respectively. These cannot be read back 
by the current version of read_object, 
however. 


Systematic Memory Recycling 

The flexibility of variable-length lists and 
data objects that are created as they’re 
needed comes at a price. Memory for 
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Objects must be allocated dynamically 
from the C heap, and unless the supply 
of heap memory is inexhaustible —the 
memory for Objects that are no longer 
needed (and only for those objects) 
must be freed. 

True Lisp systems provide automatic 
garbage collection, pausing briefly to 
accomplish this process whenever the 
program runs out of heap memory. 
Garbage collection consists of tracing 
the entire network of active pointers, 
starting with those in the machine reg- 
isters (and including values on the 
stack), and discarding those objects that 
are unreachable. 

Unfortunately, I have not yet found 
a way to implement automatic garbage 
collection using standard C mecha- 
nisms: It seems to require the creation 
of an entirely new language (or at least 
a new type of compiler). Instead, 
the Lisp-Style Library provides two 
methods for accomplishing what you 
might call “planned recycling”: free_ 
object and mark / free_to_mark (List- 
ing Six, page 121). 

Using free_object requires you to keep 
track of what Objects you have creat- 
ed, although you don’t have to worry 
about Objects that are components of 
other Objects. For example, if you cre- 
ate a list and hand it as an argument to 
Jree_object, the function will free every 
PAIR in the list and every Object point- 
ed to by a PAIR in the list, including oth- 
er lists (recursively). 

On the other hand, using the ah / 
Jree_to_mark technique, which I adapt- 
ed from the PostScript language, does 
not require you to keep track of indivi- 
dual Objects. Instead, you discard all 
Objects created between the invocation 
of free_to_mark and the most recent 
mark, as in Example 7. Calls to mark and 
Jree_to_mark may be properly nested. 

Objects created in a subregion bound- 
ed by calls to mark_ persistent and un- 
mark_ persistent will not be freed by a 
subsequent call to free_to_mark. This 





Hiaeepie 7: The functions mark and free. to_ mark provide « a a form of ‘planned F 
Object recycling. free_to_mark discards — that is, recycles the memory used by 
— all Objects created since the most recent mark. 





Wibampie 8: Objects Brenig in a subregion bounded by calls to mark_ persistent 
and unmark_persistent will not be freed by a subsequent call to free_to_mark. 

This allows some objects — in this case, the copy of important_ = — to persist 
beyond the mark/free region. 
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allows some objects to persist beyond 
the mark/free region, as in Example 8. 

copy_object duplicates an Object and 
all its components recursively (except 
for SYMBOLs, which are unique) in 
much the same way that free_object 
frees an Object and all its components 
recursively. 

The function persistent_copy_object 
allows the statement important_object 
= persistent_copy_object (important_ 
object); to be substituted for the last 
three statements of Example 8. In oth- 
er words, persistent_copy_object is copy_ 
object wrapped inside a “persistent” 
region. : 

To understand how the mark/free 
scheme works, first note that all of the 
functions that allocate memory for Ob- 
jects —the make_ series (Listing Three) 
—do so through safe_malloc, which in 
turn calls C’s native malloc. As current- 
ly implemented, safe_malloc simply 
aborts the program with an error mes- 
sage (using the error function of Listing 
Three) if sufficient memory to satisfy the 
allocation request is not available. 

Similarly, the functions that free 
memory, /ree_object and free_to_mark 
(Listing Six), do so through safe__free, 
which in turn calls C’s native free. 
safe_ free sets the first byte of the deal- 
located memory, which will usually be 
an Object’s type tag, to zero. Because 
zero is not a legal type value —in fact, 
it has the name UNDEFINED —a func- 
tion that attempts to reference a freed 
Object will fail, assuming it does some 
type checking. 

Setting the entire block of deallocat- 
ed memory to zero in safe_ free would 
further increase the probability of catch- 
ing references through “stale” pointers. 
Many Objects have components that are 
themselves pointers to other data, so a 
reference to a discarded Object would 
likely lead to an attempt to dereference 
a zero-valued (NULL) pointer. That ac- 
tion can be trapped by the compiler’s 
runtime error checking or by the oper- 
ating system. Of course, the extra zero- 
setting would come at the expense of 
some execution time. 

At the beginning of Listing Six, sev- 
eral variables tell the next part of the 
mark/free story: 


e The variable alloc_ persistent, initial- 
ly TRUE, determines whether allocated 
blocks should “persist” beyond any in- 
vocation of free_to_mark. It is set TRUE 
by mark_ persistent and FALSE by mark. 
It is also set according to the value at 
the top of mark_stack (see below) by 
unmark_ persistent and free_to_mark. 

e The variable marked_block_list points 
to the front of a linked list containing 


every block that was allocated when al- 
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grammer's editor. This gives you more ways 
to merge branches or versions than any 
other VCS: merge automatically, with a 
preview, or a line at a time from within 
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Apprentice because it has the most versa- 
tile reporting facility ever—and because it 
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conflicting merges to corrupt source files. 
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come in with fewer bugs, on time and 
within budget.@® The Personal Apprentice 
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Apprentice is $699. Sourcerer’s Apprentice 
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By including SLATE, you can 
print both Text and Graphics 
on over 400 printers. 
Immediately! Painlessly! 


You can use SLATE in your 
product with no royalties. 


Make your product more 
functional and competitive by 
taking advantage of SLATE’s 
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e Support multiple printers on the same 
system. 


¢ Output to parallel printers, serial 
printers, DOS files, console, DOS 
print spooler, and Novell network 
printers. 


e Support proportional fonts laser 
printer soft fonts. 


e Set exact print positions. 


You can add the NEW Graphics 
Subsystem for advanced 
graphics features: 


¢ Print images from the screen, graphic 
files, or custom image systems. 


¢ Scale and Rotate the printed image. 

e Convert colors to patterns. 

® Print grey scale (shaded) and color 
images. 

e Intermix text and graphics. 


What is SLATE? 


SLATE is a set of C libraries 
with over 150 text printing 
functions, a Database of over 
400 printers, and tools for end 
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SLATE with Graphics adds 
over 60 graphic printing 
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(continued from page 40) 

loc_ persistent was FALSE. (These are 
the blocks that can be freed by some 
invocation of free_to_mark.) safe_mal- 
loc allocates the space for the links in 
this list by adding space for a Pointer at 
the beginning of every memory block 
it allocates. It adds the current memo- 
ry block to the front of the list if a/- 
loc_ persitent is FALSE. 

e The variable mark_stack, together with 
mark_stack_index, constitutes a stack 
of Marks, each of which is identified as 
TEMPORARY (pushed by mark and 
popped by /ree_to_mark) or PERSIS- 
TENT (pushed by mark_ persistent and 
popped by unmark_ persistent), and 
each of which also contains an index 
pointer into marked_block_list. 


To summarize the process: safe_mal- 
loc maintains a list of marked blocks; 
mark saves a pointer into the list of 
marked blocks; and _free_to_mark walks 
down the marked block list freeing 
blocks until it reaches the block refer- 
enced by the saved pointer. mark_ per- 
sistent and unmark_ persistent allow the 
definition of a subregion where mem- 
ory blocks do not get added to the 
marked block list within a region where 
they do. 


Further Development 

I have been building the Lisp-Style Li- 
brary for C incrementally, over time, 
adding new features as I’ve needed 
them for particular projects. The macros, 
functions, and types form a reasonably 
coherent set, but the library is far from 
a finished product. Without making the 
mistake of trying to extend the library 
to the point where it becomes an inef- 
ficient interpreter of true Lisp programs 
instead of an efficient library for C, here 
are a few of my ideas for further de- 
velopment: 


e Define a type-checking macro and in- 
voke it in all functions that expect (and 
now assume) a particular type of input 
Object. This would add safety at the ex- 
pense of execution time. 

e Extend prinif to include the capabil- 
ity to print Objects. Include an option 
to print STRINGs without double quotes 
and backslash escapes. 

e Improve the prettyprinting capabili- 
ties of pp_object to make the most use 
of the available line width. 

e Add more primitive Object types, such 
as FLOAT and CHAR. Extend the read- 
er and writer functions to handle these 
types, as well as negative INTEGERs. 

e Add a facility for defining STRUCTURE 
objects and for automatically creating 
constructor (make_), selector, and type- 
predicate (is_) functions or macros. As 


an option, make it possible to use SYM- 
BOLs to name the structure’s compo- 
nents (again, at the expense of effi- 
ciency). Extend the reader and writer 
functions appropriately. (In the current 
implementation, any structure that needs 
to be handled as an Object —TOKEN 
is an example — must be hand-coded, 
including its make_ function and is_ type 
predicate.) 


Conclusion : 

I have described an effective approach 
to representing and manipulating vari- 
able-length, heterogeneous lists, self- 
identified data objects, and symbolic da- 
ta in C. The simple examples in this 
article only hint at the potential useful- 
ness of the Lisp-Style Library for C: Its 
real power is revealed in projects in- 
volving more complex data. 

It often seems to me that almost 
everything in the world —no matter 
how simple or complex —can be rep- 
resented as a list of something. More-_ 
over, written language is so fundamen- 
tal to our ability to represent and talk 
about the world that it seems essential 
for a computer language to be able to 
manipulate word-like symbols as easi- 
ly as it can manipulate numbers and op- 
erators. The techniques I’ve described 
here bring these powerful ideas to the 
practical world of C programming. 
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The Microsoft Windows graphical environment lets you 
ve multiple windows in your FO, 
applications. This means that you can resize and scroll 
input and output displays to view data... 





...and to analyze data, simply cut and paste your 
FORTRAN output into programs such as 
Microsoft Excel for Windows and you can view it 
instantly in graphical form. 


Key Features 


e Create Windows .DLLs in FORTRAN using 


new or existing code. 
¢ QuickWin Features: 


- QuickWin child windows are easily created 


using the OPEN statement. 


- User-defined positioning and titles for child 


windows. 
- Automatically generated scroll bars for out- 
put that extends past a single screen. 


e CodeView debugger supports DOS* 


Windows-based and OS/2° applications. 
e Extended CodeView debugger for large DOS 
programs. 








Windows helps FORTRAN 
users create bigger apps. 


With the new Microsoft? FORTRAN Professional 
Development System version 5.1, your existing code taps into 
the power of the Microsoft Windows” graphical environment. 
FORTRAN 5.1’s new QuickWin library lets you develop 16-bit 
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advantage of multiple I/O windows, multitasking, and cut 
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language Windows apps. And FORTRAN 5.1 has Program- 
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Source Browser. 
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¢ Use the new /MW option with the 
FL command to invoke the Quick- 
Win library. For example: “FL/MW 
MYAPP FOR’ is all it takes to make 
MYAPP a Windows-based program. 


¢ Use the ALLOCATE statement to 
dynamically size arrays and to 


e Complete online documentation for the 
FORTRAN language and all compile and 
link switches. 

e DOS and OS/2 run-time libraries are com- 
patible with other Microsoft languages. 

e Floating-point support includes co-processor, 
emulation, and alternate math libraries. 

© 100% ANSI 77 compatibility and numerous access more than 16MB of aid 
IBM§ VAX® and ANSI 8X extensions. on a 386." 

e New BYTE keyword emulates VAX data types. 

e Language Extensions include DOUBLE - 
COMPLEX variables, precision and maxex- 
ponent inquiries. 
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Generic Containers In 


Implementing generic packages without parameterized 
types — difficult, but not impossible 


common problem in object-ori- 

ented design is creating and 

controlling collections, sets, or 

groups of objects. As object 

class designers, we’d ideally 
like to focus on the atomic aspects of the 
object abstraction, ignoring the secon- 
dary problem of maintaining and 
controlling collections of these ob- 
jects. More importantly, we’d like to 
implement this control structure in a 
generic and reusable fashion. 

This article presents a method for cre- 
ating generic lists of objects in C++ with 
code developed on an Intel 80486, us- 
ing GNU g++ 1.37 under SCO Unix Sys- 
tem V, Release 3.2. 


Generic Objects 

Most algorithms described in books on 
data structures might be considered 
“generic” because they work for many 
types of data — they’re type-indepen- 
dent. Unfortunately, these books are 
more often than not written with pro- 
cedural languages in mind, and we miss 
the generic (and code reusability) as- 
pects of these algorithms. When we 
need one of these data structures, we 
_ usually have to reimplement the algo- 
rithm and data structure to fit our par- 
ticular need. 
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Andrew Davidson 


To write a generic container class in 
any language, the language must pro- 


vide some means of writing a general. 


type-independent algorithm. One com- 
mon complaint about C++ is that it does 
not support parameterized types, there- 
by making it difficult to create generic 
classes. 

Parameterized types would allow you 
to easily write generic functions such as 


Max( ), whichseturns the greater of two 
values. Max( ) would contain the state- 
ment return(a >b?a: b) and would 
work for any class or data type. (Future 
versions of C++ are supposed to sup- 
port parameterized types.) 

Currently, you can use overloading 
to create a Max() function for any class 
you may need, but that means rewrit- 
ing the Max() function for each new 
class. The basic logic does not change, 
only the parameter list of the function. 
Using operator overloading in this ex- 
ample does not give us the code reusa- 





bility or genericity we are after, but does 
make the code lexicographically sim- 
pler. Even if code reuse were not an is- 
sue, Overloading still would not help as 
it works only for functions, not classes. 


Inheriting the Problem 

The $100 question, then, is how do we 
create a generic container class without 
parameterized types? In his book A C++ 
Toolkit, Jonathan S. Shapiro presents a 
design for a generic list based on inher- 
itance. The only objection I have to this 
design is that it requires the class de- 
signer to decide what sort of containers 
the class will work with. Rather than 
place the burden of clairvoyance on the 
class designer, I would rather defer this 
decision to the user of the class. This 
frees the class designer to focus on the 
atomic aspects of object abstraction and 
ignore the secondary problem of how 
to maintain and control collections of 
these objects. It is very difficult to know 
how a class will be used in the future. 

There is also another problem with 
creating container classes based on in- 
heritance in C++. As a consequence of 
C++’s strong type checking, the con- 
tainer class will return a pointer or ref- 
erence to a container, instead of to the 
object the container class is supposed 
to control. To get around this problem, 
you can cast the returned pointer to the 
class of the object, but you should not 
have to do this. 

Stephen Dewhurst and Kathy Stark 
(Programming in C++) also present an 
almost fully generic design for linked 
lists using typedefs to support various 
data types. The problem with this ap- 
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(continued from page 50) 

proach is that their generic list will sup- 
port only one type of class in any giv: 
en program. For example, assume we 
have two classes — one representing 
coins, and the other representing col- 
ors. It should be possible to have a list 
of coins and a separate list of colors in 
the same file scope, without the coin 
class and the color class having to share 
a common base class. 


Solving the Generic Problem 
The design I present here is a more 
generic version of Dewhurst and Stark’s 
generic list and gets around the prob- 
lem of maintaining a separate list with- 
in the same file scope. Dewhurst and 
Stark implement the linked list using 
item, list, and iter classes. The item class 
contains a pointer to the next item and 
a reference to the object to be controlled 
using the list. The /ist class contains a 
pointer to the head of the list and mem- 
ber functions for clearing, appending, 
and inserting objects into the list. The 
iter class is used to provide a control ab- 
straction, which retains the state of the 
iteration from invocation to invocation. 
The test programs described later illus- 
trate how to use these three classes. 
Generic.h, which is included in C++ 
2.0, contains a set of macro functions 
that can be expanded to create a unique 
set of container class definitions for each 
class to be controlled. The macro func- 
tions will entirely encapsulate and hide 
the implementation of the container 
class. Specifically, Generic.h contains a 
name2(_) macro function that takes two 
arguments and concatenates them. For 
example, name2(foo, blort) expands to 
be fooblort. name2() is used to create 
a unique name for each type of list re- 
quired. For each generic class needed, 
define a macro function that will take 
one argument representing the class to 
be controlled. Listing One (page 124) 
#defines the GenList class. Once defined, 
the GenList macro can create a generic 
list of coins using GenList(coin) listOf- 
Coins;. The C Preprocessor (CPP) will 
convert this to coinGenList listOfCoins,. 
With the name part. of the problem 
solved, all that’s left is defining the da- 
ta members and member function for 
the GenList(CLASS_TAG). Generic.h pro- 
vides another macro function, declare( ), 
to help with this problem. To declare 
the class definition for the generic list- 
class of coins, use declare(GenList,coin);. 
CPP will expand this into GenList- 
declare(coin);, a programmer-defined 
macro function. In fact, this is where 
you'll write all generic algorithms per- 
taining to the list class. GenListdeclare( ) 
is typical of the macro function names 
generated by declare( ); its form is 
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shown in Figure 1. In examining Figure 
1, recall that the backslash character (\) 
is used to continue the macro on the 
next line. Anytime I need the name of 
the generic class, I use the correspond- 
ing name macro function. 

At this point, you should have enough 
background to browse Listing One. I 
have also provided test1.cc (see Listing 
Two, page 124), coin.hh (Listing Three, 
page 124), and coin.cc (Listing Four, 
page 125) to provide an example of ac- 
tual use. Also provided is preproc.cc 
(Listing Five, page 125), which shows 
how the actual macro function is ex- 
panded for the coin class. 


A generic algorithm 
is one that is type- 
independent 





Improvements 

I implemented the generic list using ref- 
erences. You may choose to keep a 
copy of the object in your version of 
the item class. I decided to use refer- 
ences because my application controls 
static objects. By using references, I save 
memory. (I have only one copy of the 
object instead of possibly two.) The 
code should also run faster because 
there will be fewer calls to the object’s 
constructors and destructors. Keep in 
mind that every time you put an object 
on the stack, the compiler automatical- 
ly makes a call to the object’s copy con- 
structor. If the object is derived, this can 
add significantly to the number of func- 
tion calls made. 

A disadvantage of using references in- 
stead of maintaining a copy is that it’s 
possible to have dangling references. 
Before an object in the list is destroyed, 
it must be removed from the list. Fail- 
ure to do so will render the list useless. 
The test program gives an example of 
this. This can easily occur if, for exam- 
ple, two lists are set equal to one an- 








Figure 1: The GenListdeclare macro 
function 


other and then passed to different sub- 
systems. 

Users of the generic list may choose 
to split the declare macro into two. One 
macro would define the generic class 
data members and member functions. 
The other macro function would imple- 
ment the actual member functions. There 
are two advantages to this approach. 
The first advantage is that this version 
will work with C++ compilers that are 
based on cfront. The second advantage 
is that you will eliminate link errors that 
occur when two modules try to use 
generic lists on the same class of objects. 

There are several member functions 
that you could add to the generic list 
family of classes. Dewhurst and Stark 
mention the possible addition of an ap- 
ply function in which there is a mem- 
ber or friend function that you wish to 
“apply” to all of the objects in the list. 
The user of the list can easily implement 
this in a few lines of code using the iter 
class. 

I found that adding the apply func- 


tion to the /ist class can become unruly. 


For example, I had to overload the ap- 
ply function to handle member and 
friend functions that take a variable 
number of arguments. If you plan to im- 
plement this feature, declare the point- 
ers to the functions as taking a variable 
number of arguments and provide two 
versions of the apply function: one for 
the member functions, the other for the 
friend functions. 

Of course, there’s always a flip side 
to the coin, and in this case the disad- 
vantage is that you lose the benefits of 
type checking. Nevertheless, the gener- 
ic list container class presented in this 
article should provide a good starting 
point — and may this wheel never be 
invented again. 


Endnotes 
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compresses secured files. 


personal contact management software 


Tracker™ Five is an “intelligent” cardfile system which dramatically simplifies the storage, retrieval, 
up-dating and access of information on clients, customers, and contacts. 

And, because Tracker™ Five can be a TSR (terminate and stay resident) system, it means that no 
matter what else you're working on, one hot-key brings Tracker™ Five to the screen, ready to 
help you write a note, schedule an appointment in your calendar, or retrieve a vital piece of 
information in an instant. 





Distributorships available, call or fax: 


313 RIE Ltd. 43 Argow Pl. Nanuet N.Y. 10954 Tel. 1 (800) UD 343 RE 
Tel. 1-(914) 623-1630. Fax (914) 623-7180 


WORLDWIDE SUPPORT | 
Australia: (62) 310728 Fax (62) 961815 Belgium: (013) 771902 Fax (013) 777372 
Denmark: (042) 804200 Fax (042) 804131 Italy: (02) 6698 1094 Fax (02) 6700 705 
Malaysia: (03) 719 8299 Fax (03) 717 6558 


CIRCLE NO. 600 ON READER SERVICE CARD 


8 a ee ee 





Porting UNIX to the 386 


The Basic Kernel 





Overview and initialization 





William Frederick Jolitz and Lynne Greer Jolitz 


n the previous article we examined 
the machine-dependent layer ini- 
tialization of the “stripped-down” 
kernel — the machine-dependent 
portion of the kernel which installs 
the kernel into the position to execute 
processes (via the bootstrap procedure) 
and prepares the system for initializa- 
tion of the minimum machine-inde- 
pendent portions of the kernel (pro- 
cesses, files, and pertinent tables). We 
viewed our 386BSD kernel as a kind of 
“virtual machine” (not to be confused 
with the “virtual” in “virtual memory”), 
where functions underlie other func- 
tions transparently. When initialized, the 
system can use portions that require lit- 
tle direction to initialize even larger por- 
tions. Thus, this virtual machine assem- 
bles itself tool by tool, much like a set 
of Russian dolls. The machine-dependent 
kernel initialization is the innermost of 
the dolls — the kernel of the kernel 
around which all is built. 
We now extend the layered model 
further, by incrementally turning on all 
its internal services using the kernel’s 
maint ) procedure. In other words, this 
Bill was the principal developer of 2.8 
and 2.9BSD and was the chief archi- 
tect of National Semiconductor’s GENIX 
project, the first virtual memory micro- 
processor-based UNIX system. Prior to 
establishing TeleMuse, a market research 
firm, Lynne was vice president of mar- 
keting at Symmetric Computer Systems. 
They conduct seminars on BSD, ISDN, 
and TCP/IP. Send e-mail questions or 
comments to lynne@berkeley.edu. Copy- 
right © 1991 TeleMuse. 
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next outer layer will be built by the ker- 
nel’s main( ) procedure, which in turn 
initializes higher-level portions of the 
kernel. This is the second major mile- 
stone of our UNIX port — the halcyon 
point where most of the kernel services 
and data structures are initialized. 





At this stage, we'll review key ele- 
ments of the BSD kernel which will be 
invoked in future articles. We'll briefly 
examine the interrelationships between 
some of these elements, in order to de- 
lineate the broader picture a bit more 
and illuminate some.important ideas in 
UNIX system design. 


Layered Modeling: Achieving a 
Well-Stacked System 

A basic understanding of the entire sys- 
tem demands a return to the layered 
model described last month. In brief, 
the kernel is a program which runs in 
supervisor mode on the 386 (or “Ring 
0” — for a review on rings, see “The 





Standalone System” DDJ March 1991). 
The kernel implements the primitives, 
called “system calls,” of UNIX and man- 
ages the environment and other char- 
acteristics of the many user “processes” 
run to provide functionality to the sys- 
tem. (Each user process runs in a sep- 
arate “Ring 3” address space.) Only pro- 
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(continued from page 54) 

cesses running in their protected ad- 
dress spaces are truly visible to the UNIX 
user, as they provide the requested func- 
tionality (a command processor or 
“shell,” a compiler, an editor, and so 
on). These processes constitute the out- 
ermost layer of our layered operating 
system model. System calls and various 
processor exceptions (page fault, device 
interrupt, overflow, and so on) are meth- 
ods by which a process either directly 
or indirectly enters the UNIX kernel to 
request services. In this way, the kernel 
acts as a transparent (not statically- 
linked) subroutine library that functions 
as a kind of virtual machine. It’s as if 
the microprocessor hardware itself ac- 
tually did a whole read() system call 
request in the single /cal/ instruction 
used to signal a system call. (For fur- 
ther information, see Leffler, et al, The 
Design and Implementation of the 
4.53BSD UNIX Operation System, Chap- 
ter 3: Kernel Services, page 43-45, Ad- 
dison-Wesley, 1989.) 

Layers within the kernel are split in- 
to the Gnostly) machine-independent 
“top” half, and the (mostly) machine- 
dependent “bottom” half. The top half 
synchronously processes exceptions and 
system calls and blocks a currently ex- 
ecuting process when an event causes 
a delay, such as a temporary memory 
shortage, or a device input/output op- 
eration. Blocking a process permits the 
kernel to run another delayed process, 
allowing multiple processes to appear 
to run concurrently on a single proces- 
sor. The bottom half, in contrast, asyn- 
chronously processes device interrupts 
that are never allowed to be blocked. 
Device interrupts can be viewed, there- 
fore, as high-priority, real-time tasks 
brought to life by a hardware interrupt 
to render the necessary effect and then 
exit the stage. They then return the ker- 
nel from the interrupt back to whatever 
code was running before the interrupt 
occurred. In a way, device interrupts 
are practically stateless and serve pri- 
marily to signal the occurrence of an 
external event to the synchronous “top” 
layers. Note, however, that such notifi- 
cations will only take effect when the 
top layers allow preemption — in the 
UNIX model, this is only allowed at cer- 
tain points when operating in the “top” 
layers (generally, when returning to the 
user process from the kernel, or when 
blocking for an event). 

The impact of the layered model on 
our 386BSD port cannot be understat- 
ed. Our 386BSD system can be broken 
up into modular subsystems that have 
neat boundaries and work by a hand- 
ful of simple rules. One rule which we 
live by is the aforementioned low-lev- 
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el asynchronous, top-level synchronous 
_arrangement. For example, if we de- 


scribe some code that must block for a’* 


resource, we are already restricted to a 
discussion of the top layer. Likewise, if 
we describe an event that occurs as a 
result of a peripheral completing an op- 
eration, rest assured it resides within the 
lower layers. This organization allows 
us to break the whole into parts we can 
handle; otherwise we quickly become 
mired in complexity. 

Understanding and following the rules 
inherent in our layered model greatly 
simplifies UNIX kernel design. Without 
these rules, we would need a lot more 
“critical region” code dealing with arbi- 
trary preemption. These same rules, how- 
ever, also limit our ability to easily im- 
plement UNIX in real-time environments. 
(For example, Ethernet delays are some- 
times unpredictable.) Some versions of 
UNIX attempt to improve real-time per- 
formance by minimizing worst-case de- 
lays through the judicious addition of 
blocks to allow high-priority processes 
to run, but this is not a simple fix. 

There is reason to believe that the 
synchronous design of UNIX limits its 
performance with disk file writes. In a 
paper presented af the Summer 1990 


USENIX Technical Conference, “Why 
Aren't Operating Systems Getting Faster 
as Fast as Hardware?” (USENIX Techni- 
cal Proceedings, page 247) John Oster- 
hout of the University of California at 
Berkeley discusses the need to “decou- 
ple filesystem...operations that modify 
files,” as synchronous writes are re- 
quired for filesystem stability, consis- 
tency, and crash recovery. This is cur- 
rently not a great problem, because 
filesystem reads (the majority of opera- 
tions) can be elegantly cached and an- 
ticipated. Still, this raises questions about 
the current UNIX model and may result 
in its revision. 


Top-Level Layers 

Last month, we discussed bottom-level 
initialization, where the Interrupt De- 
scriptor Table (DT), a 386 hardware in- 
terface to interrupts and exceptions, was 
wired into code entry points (DTVEC 
(XXX)). This is how 386BSD glues the 
hardware interrupts onto the bottom lay- 
er. In addition, some of the top-layer in- 
terfaces were also established. Now we 
need to build and initialize the other 
top-layer kernel functions in our BSD 
kernel main( ). With the kernel initial- 
ized, we must get the ball rolling by 





bootstrapping user processes to add 
functionality in the form of services 
(such as a command processor that will 
allow useful work to be done with our 
386BSD system). 

To implement the UNIX model, we 
refer to many items — all of which are 
managed by the top layers and refer- 
enced by lower layers. These include 
processes, address spaces, files, filesys- 
tems, buffers, messages, signals, cre- 
dentials, and others. They are grouped 
into a global set managed by the ker- 
nel on behalf of all processes, and a pri- 
vate set managed by the process for the 
benefit of the program running within 
the process. 


The Global Kernel Set 

The global set of objects is split into a 
shared database (proc, inode, buffer 
cache, and file structures), as well as a 
group of consumable resources (mem- 
ory pages, data buffers, and heap stor- 
age). The shared database objects use 
methods for which items are searched, 
contended, modified, allocated, delet- 
ed, and linked together; all in a pre- 
emptible fashion, since many process- 
es may attempt simultaneous access to 
these objects during multitasking oper- 
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Silence is not golden... it’s outdated. 


There is no form of communication 
more powerful, more expressive than the 
human voice. And for too long, it has been 
ignored by the computer industry. The 
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ation. These databases must be initial- 
ized, allocated the appropriate minimum 
requirements for operation, and linked 
as the system requires. | 

The UNIX paradigm is “process-cen- 
tric,” that is, most of the activity is built 
around the current running process. With 
the exception of necessary functions such 
as scheduling or interprocess communi- 
cations (which require knowledge of 
multiple processes), most of the kernel 
is written without any explicit knowl- 
edge of any process save the running 


“one. Thus, an understanding of how a 


process is provided services tells you the 
bulk of what the kernel does. Very little 
of the code and data structures are ex- 
plicitly aimed at this “global” view. 

The focus of kernel activity is the list 
of processes (the “proc table”). Processes 
are linked into various lists so they can 
locate other processes through various 
relationships. As the kernel operates, 
processes migrate onto and off of dif- 
ferent lists. While the process structure 
is not globally allocated, the list of en- 
tries is itself a global resource. Each sys- 
tem call and exception is directed to op- 
erate on a given process. As such, the 
BSD kernel uses the struct proc entry 
of each process as the key data struc- 
ture that indexes all related kernel en- 


tities of a process. 


Process Private Set 

Each process possesses a number of da- 
ta structurés which can be leveraged to 
properly implement the UNIX model. So 
many of these are required that we re- 
duce them, for simplicities sake, to a giv- 
en set from which we draw upon in our 
discussions. All these properties of the 
process are rooted in the “per-process 
data structure,” also known as struct proc 
or “proc slot” (see Listing One, page 126). 
This is just one element of the previously 


pees: =e 


Figure 1: The initial processes generated by the kernel: (a) main kern 


processes; (b) user mode processes. 





mentioned list of processes which de- 
fines just what a process is. 


The Proc Slot 

In Figure 1, 386BSD uses a proc slot as 
the nexus of information for a process. 
Many different structures, most of them 
dynamically allocated, hang off this sin- 
gle proc entry (see Figure 2). These may 
be, in different cases, shared by pro- 
cesses, dynamically grown, or exter- 
nalized to special applications. Among 
the auxiliary structures are: : 


p_cred This structure is the process’s 
credentials, that is, the information-(such 
as user ID number and group mem- 
bership) used to regulate access to sys- 
tem resources by the process. This in- 
formation is managed in a generic 
fashion by most of the kernel and is 
consulted by a tiny, centralized portion 
of the kernel (so that additional securi- 
ty control mechanisms can be added or 
substituted). It is shared by sibling pro- 
cesses of like ownership. 

p_fd_ Each process has a private file 
descriptor table: a dynamically allocat- 
ed, growable structure used to store in- 
formation on files currently open by the 
process. (Older versions of UNIX had a 
static limit on the number of open files, 
usually 20.) 

p_stats Statistics on the use of various 
resources consumed by the process. For 
example, the amount of time the pro- 
cessor used, the memory used, and var- 
ious other details are tallied by this struc- 
ture. 

p_limits Analogous to statistic record- 
ing on the process, this auxiliary struc- 
ture is used to put administrative limits 
on resource utilization. 

p_vmspace Another critical resource 
for the process is contained in the vir- 
tual address space, details of which can 
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be found within each process’s p_ 
vmspace data structure. Among the da-, 
ta available is the virtual memory sys- 
tem’s address map (vm_map) which 
heads a table of address map entries. 
Each entry, in turn, manages allocated 
regions of virtual address space. Also, 
each process contains a physical map 
(vm_pmap) structure, managed by the 
pmap layer, containing current address 
translation state information (discussed 
later in the “Virtual Memory Subsys- 
tem” section). 
p_sigacts POSIX process signals, a kind 
of software interrupt for user processes, 
are implemented with the signal action 
state information in this structure. 
p_pgrp POSIX provides for the con- 
cept of “sessions” as a method of orga- 
nizing process groups. Process groups 
are a set of processes operating togeth- 
er (for example, a pipeline such as “foo 
: bar ; bletch”). Sessions utilize a ses- 
sion leader (usually a command pro- 
cessor or shell) that manages process 
groups. It has the ability to suspend or 
resume process groups run connected 
to a terminal (in the “foreground”) or 
detached from the terminal (in the “back- 
ground”). The data structures used to 
manage this feature reside in this shared 


data structure. 

The proc structure in 386BSD high- 
lights the modularity of function present 
in the BSD design. Although BSD is cur- 
rently implemented as a monolithic ker- 
nel, it can be arranged so that multi- 
threaded distributed kernel operation 
can be achieved. In general, BSD ker- 
nel development has been focused 
around the revision and examination of 
the monolithic operating system kernel 
prior to implementation in a multi- 
threaded kernel. This approach seeks 
to avoid putting the cart before the 
horse, so to speak, and avoids vacuous 
“modularity” modifications which pur- 
port to work only in a multiprocessor 
environment. This is not reticence in de- 
sign — merely caution. 

Multiprocessor systems are desirable, 
so the pent up enthusiasm to take ad- 


vantage of them can overwhelm the 
many research directions available and 
result in the canonization of inappro- 
priate or short-sighted standards. Cur- 
rent standards efforts are making head- 
way, although the overall multiprocessor 
architecture is still unknown. (For ex- 
ample, some POSIX groups are attempt- 
ing to define a standard for thread pro- 
gramming, and currently the most 
popular standard is one contrary to 
UNIX primitives, because the group 
touting this standard would rather ig- 
nore UNIX. This will result in another 
pointless standard taking its place along- 
side the dodo and other dead-end events 
of history.) 

Due to the way this arrangement re- 
sults in “data hiding,” the facilities of 
filesystems, accounting, administration, 
virtual memory, and POSIX signal pro- 





Figure 2: Process auxiliary data structures 
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talk over projects using voice mail... or 
plaster a printed spreadsheet with post-it 
notes when they can annotate in voice right 
on the computer. But that’s not all. Voice 
Programmer's Interface lets you create 
educational or training programs on disk or 
CD-ROM that actually give verbal 
instructions to students. Or develop 
“talking” software demos, sound effects and 
much more. The possibilities are as endless 
as your imagination... whatever the 
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cessing are each separated from the in- 


_ her part of the operating systems ker-. 
nel. Each can be evolved separately or 


redefined with minimal interaction, as 
befits a modular design. 


Kernel Events 

Processes operate synchronously, pro- 
cessing a system call item by item. If 
they need to wait for either a resource 
or an external event, they must block 
with a sleep() function call to await 
changes and give up the processor. Else- 
where in the kernel, a corresponding 
wakeup( ) function call will awaken the 
snoozing process, preparing the process 
to run when next possible. While sleep 
gives up the processor, wakeup sched- 
ules processes to run — it does not 
transfer to processes nor even insure 
that the process will ever run. Wakeup 
calls are idempotent. Many can occur 
before the process actually starts to run. 

A process can only wait on a single 
event at a time, and is usually uniquely 
identified by the kernel address of the 
object for which it waits. This event is 
stored in the p_wchan field of the pro- 
cess’s proc slot. Events themselves don’t 
require additional space when active, so 
secondary or recursive effects (as might 
happen in the case of a block on mem- 
ory starvation) don’t occur. 

As the 386BSD system and its drivers 
are all written with these event mecha- 
nisms in place, we are potentially mul- 
titasking from the start, although until 
we replicate (or “fork”) to create multi- 
ple processes, no actual context switch- 
es occur to different processes. (There 
are no other processes to switch to.) In- 
stead, the processor is allowed to idle, 
waiting for events. In the UNIX per- 


' spective, we always try to organize the 


general case so that it functions seam- 
lessly on initialization, in order to lever- 
age it early. An example of this ap- 
proach can be observed in the 
mechanisms that provide diskless op- 
eration, where we must provide a root 
filesystem over a network connection 
before we have a filesystem to run the 
programs that normally initialize the net- 
work and locate the filesystem on the 
network. (Got it? Good.) 


Machine-Independent Initialization 

Machine-independent initialization is be- 
gun by wiring up a “process zero.” In 
the previous article, we took care in the 
assembly language initialization to craft 
a separate region for the kernel stack — 
this will be our “Oth” process kernel 
stack. We then commence the creation 
and attachment of the necessary auxil- 
iary data structures that process 0 will 
use during the lifetime of our system. 
No process is specially considered, so 
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all must have these structures present 
and consistent with other structures in 
the kernel. To avoid recursive problems 
with the “virgin” birth, the first process 
must be hand-wired with the barest of 
necessities, and space for the auxiliary 
structures must be allocated statically. 
In fact, we will find that process 0 will 
attempt to become eternal, so it’s actu- 
ally more costly to dynamically allocate 
space for it than to do so statically! 

Having made a Oth process, we now 
must create a process list to which the 
system can refer in a global fashion, to 
locate, add, delete, and modify pro- 
cesses. This is not really complicated, 
because at this point all of the queue 
pointers point either at our just-born 
process 0 or at “nil.” At this stage, all 
process-related operations can’now be 
activated, although only for statically-al- 
located processes (which is not very in- 
teresting — we need to turn on the vir- 
tual memory and storage allocation 
functions for something more useful). 

UNIX likes to have access to herds of 
processes, many appearing to run si- 
multaneously, to do its bidding. As a re- 
sult, we need to rapidly flit between 
processes running for a brief slice of 
time before blocking. To make this a 
low-cost operation, we use a priority- 
ordered run queue of process pointers 
to rapidly select the next process to run 
when it’s time to switch. This is now 
initialized to permit the context switch 
code to be run (as it will be called when 
we block for I/O operations). 


Virtual Memory Subsystem 

As mentioned in the previous article, 
380BSD has been rewritten to use a 
new virtual memory system with 
greater capabilities. This new package, 
derived from MACH version 2, pos- 
sesses generalized mechanisms which 
allow management of multiple regions 
of virtual memory within the user pro- 
cesses and kernel itself, thus avoiding 
the arbitrary and idiosyncratic methods 
used in earlier Berkeley UNIX virtual 
memory systems. This “new vm” is 
composed of machine-dependent 
(physical map) and machine-indepen- 
dent (virtual map) portions. 

This new virtual memory system was 
originally conceived in 1985 at Carnegie- 
Mellon University by Avadis Tevanian 
(now at Next) and Michael Wayne 
Young to provide an easily retargettable 
virtual memory system with the mod- 
ern functionality required by the MACH 
Operating system implementation. It 
serves as the basis for virtual memory 
systems in current MACH implementa- 
tions, OSF/1, and Berkeley UNIX. 

To initialize the virtual memory sys- 
tem, all remaining pages of physical 


memory (not occupied by the kernel 
program itself) are each first allocated a 
resident page data structure (vm_page). 
Queues of free pages are created so that 
pages can be allocated from them. 

Next, virtual memory objects are cre- 
ated to provide an abstraction on which 
to hang collections of physical pages. 
To allocate virtual address space, virtu- 
al memory maps are also created to 
identify valid regions of virtual memo- 
ry and the characteristics of these re- 
gions. The virtual memory system will 
associate virtual memory objects con- 
taining physical pages of memory with 
portions of address space mapped by a 
virtual memory map, as needed. 

We then initialize the kernel’s virtual 
address map and provide a mechanism 
to allocate portions of “wired down” 
memory to the kernel’s address space 
with a function called kmem_alloc. This 
function, the most primitive of storage 
allocators, allows us to allocate pages 
of memory dynamically in the granu- 
larity of pages at a time. 

With a memory allocator present, the 
initialization of the physical map (pmap) 
portion of the system is completed, al- 
locating tables that will be used by the 
physical map module to track the as- 
sociation of physical pages of memory 
with the hardware address translation 
mechanisms data structures (Page Di- 
rectory Table and Page Table Pages on 
the 386). At this point, the virtual mem- 
ory system can allocate multiple address 
spaces and on-fault physical pages to 
legitimate references to previously 
mapped virtual map regions. | 

In designing a virtual memory system, 
the common drawback is the inherent 
complexity required. Not only does the 
system have to allocate virtual address 
space, but it also needs to allocate pages 
of memory to “back up” the virtual 
space. On some systems, the virtual 
memory system allocates space, grabs 
some pages, and manually wires them 
into the address translation map. With 
the new 386BSD virtual memory sys- 
tem, when you ask for memory from a 
memory allocator, both virtual and phys- 
ical memory are allocated. In other 
words, you always get the memory in 
an address space. | . 

Another point to consider when de- 
signing virtual memory systems: Sup- 
pose we share the same pages in dif- 
ferent processes. We may wish to “back 
up” shared pages that might be modi- 
fied incrementally — thus, unique pages 
need be created only when the contents 
of a page change. This mechanism, 
called “copy on write,” allows us to post- 
pone or avoid entirely modifying a pro- 
cess’s memory. Only a mechanism to 

(continued on page 64) 
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“The IEF is a superior tool for implement- 
ing Information Engineering because it 
integrates the entire process from planning 
through code generation. We're deploying 
the IEF throughout the corporation.” 

David V. Evans 

Vice President 

Director, Information Systems 

J.C. Penney 
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“The strengths of the IEF are clear-cut. 
One obvious quality advantage is that 
application changes are made to diagrams, 
not code. This ensures ongoing integrity 
—the specification always matches the 
executing system.” 

Paul R. Hessinger 


Chief Technology Officer 
Computer Task Group 





“We are using the IEF to develop a new 
generation of manufacturing systems 
replacing over 300 existing systems. We 
estimate that IEF will increase our produc- 
tivity by between 2-to-1 and 3-to-1 for 
new systems development..” 


Wal Budzynski 


Head of Operations, Systems/Computing 
Rolls-Royce 





“Our On-line Banking system has been in 

production for more than 12 months— 

500,000 transactions a day—without a 

single code failure. And we had very few 

enhancements to do. Our users got what 

they needed the first time out.” 

Mark Quinlan 

Senior Programmer/Analyst 

Huntington National Bank 
j 







“l’ve seen other CASE tools fail, so |-raised 
the bar high when we evaluated the IEF. It 
passed with flying colors. | could not be 
happier with my decision to adopt the 

IEF company-wide.” 


John F. Mott 
President 
AMR Travel Services 
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“The IEF offers dramatic improvements in 
productivity, yet it's easy to learn.- One 
example: We trained 23 developers, 
including 18 new hires, and then completed 
a large order processing system—300 
transactions—all in only 20 months.” 


Venkat (Vinnie) Tiruviluamala 


Director, CPC/CPPC Information Systems 
SONY Corporation 
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“To meet the dramatically reduced time- 
to-market requirements for our products, 
we need high-quality systems that can be 
changed fast. That's why we've chosen 
the IEF as the CASE solution for our entire 
organization.” 

John Pajak 

Executive Vice President 

Mass Mutual Life Insurance 






“Our users were extremely pleased when 
we finished our first project—a 60-trans- 
action system—in one-half the budgeted 
time. We had tried interfaced CASE tools 
without success. IEF integration makes 
the difference.” 

Giorgio Sorani 

Division Head — MIS 

Lubrizol 


“Our first IEF system was completed 
faster, and with fewer errors, than any 
system I’ve ever seen. If | had to go back 
to the old ways, I'd find another 
job...outside the DP world. It means that 
much to me.” 


Mogens Sorensen 
Chief Consultant 
Nykredit (Denmark) 
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The success of Texas Instruments. 
CASE product is proven—in the field. 
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Major companies have used TI’s 
CASE product, the Information 
Engineering Facility™ (IEF™), for 
everything from rebuilding aging 
high-maintenance-cost systems to 
development of new enterprise- 
wide strategic systems. 


Study shows zero code defects. 


The quality of IEF-developed 
systems is remarkable. In recent 
CASE research by The Gartner 
Group, application developers 
were asked to report the number 
of abends they had experienced. 
(An “‘abend’’ is a system failure 
or “lock-up” caused by code 
defects.) IEF developers reported 
zero defects—not one abend had 
occurred in IEF-generated code. 


Maintenance productivity 
gains of up to 10-to-1. 


In this same study, developers 
were asked to compare IEF 
maintenance productivity with 
their former methods. Of those 
responding, more than 80 percent 
had experienced gains of from 2-to-! 
to 10-to-1. (See chart.) 


Specifications always match 
the executing application. 


With the IEF, application 
changes are made to diagrams, 
not code. So, for the life of your 
system, specifications will always 
match the executing application. 
The Gartner Group research 
showed that all IEF users who 
reported making application 
changes made all changes at the 
diagram level. 
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Developers were asked to compare IEF maintenance to 
former methods. Of those responding, more than 80% 
reported productivity gains of from 2-to-1 to 10-to-1. 


Mainframe applications can be 
developed and tested on a PC. 


With our new OS/2 toolset, you 
can develop mainframe applica- 
tions, from analysis through 
automatic code generation, on 
your PC. Then, using the IEF’s 
TP monitor simulator and the 
diagram-level testing feature, you 
can also test these mainframe 
applications without ever leaving 


the PC. 


More environmental 
independence coming soon— 
develop on PC, generate for 
DEC/VMS, TANDEM , UNIX. 


The IEF has generated applica- 
tions for IBM mainframe environ- 
ments (MVS/DB2 under TSO, 
IMS/DC, and CICS) since early 
1988. Soon you'll be able to 
develop systems in OS/2 and then 
automatically generate for other 
platforms. DEC/VMS, TANDEM 
and UNIX are scheduled for 
availability in 1991. More will 


follow. We are committed to 
increased environmental indepen- 
dence in support of the Open 
Systems concept. 


We are committed to standards. 
IEF tools and IEF-generated code 


will comply with standards as 

they emerge. We will adhere to 
CUA standards and to the prin- 
ciples of IBM’s AD/Cycle and 
DEC’s COHESION —~and we will 
support Open Systems environ- 
ments centering around UNIX. In 
any environment, the COBOL, C 
and SQL we generate adhere closely 
to ANSI standards. Our presence 
on standards committees helps us 
keep abreast of ANSI and ISO 
developments affecting the 


CASE world. 


Full-service support. 


Of course, our technical support, 
consultancy, training courses, 
satellite seminars, and other infor- 
mational assistance will continue 
apace. We also offer re-engineering 
and template services. This full- 
service support will remain an 
integral part of the IEF product. 


For more information 

call 800-527-3500 or 
214-575-4404. 

Or write Texas Instruments, 
6550 Chase Oaks Blvd., 
Plano, Texas 75023. 
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(continued from page 60) 
track changes is required. This is ac- 


* ‘complished by copying virtual memory 


objects that shadow the original object. 

To complete the initialization of the 
virtual memory system, we must now 
initialize and activate “pagers,” the soft- 
ware that reads in the contents of pages 
from the filesystem and stages pages in 
and out of processor memory to disk 
when we run short of “fast” storage. 
Pagers interface with external forms of 
information, such as local filesystems, 
disk swap partitions, disk drives, net- 
work filesystems, and the like. 


Kernel Memory Allocator 

Besides allocating pages of memory 
from the virtual memory system, we 
need a means of allocating smaller 
granularity objects. Many data structures, 
possessing short and long lifetime and 
generally in the order of 32 bytes in size, 
are allocated by the kernel on an “as 
needed” basis. UNIX provides user pro- 
cesses with a malloc() memory alloca- 
tor for general-purpose memory allo- 
cation; the same type of function resides 
in the BSD kernel. This provides for a 
global heap store — so called because 
everything is kept in a heap, all piled 
together! 

Kernel malloc(_) uses the virtual mem- 
ory system to obtain actual storage to 
manage (called an “arena”). This stor- 
age area encompasses the heap itself. 
After the vm system has been activat- 
ed, we initialize our allocator. From this 
point on, we can dynamically allocate 
data structures. Older versions of BSD 
used statically allocated tables that min- 
imally required the system to be patched 
and rebooted if a resource was overuti- 
lized — sometimes the system even had 
to be recompiled from its source code. 
With dynamic allocation, the configu- 
ration can be changed on a live system 
and the effect observed immediately. 


Device Startup 
Once enough of the system services are 
established, we can proceed to scale 
and configure tables appropriate for op- 
eration, among them the buffer cache 
and character list (clist) structures. While 
these are usually similar on most sys- 
tems, a few have private buffer memo- 
ry pools associated with devices (such 
as a disk array with onboard RAM) that 
should be specially arranged prior to 
system operation. Currently, the amount 
of disk buffering memory is chosen as 
a fixed percentage of memory at boot 
time, but work is underway to allow a 
more dynamic allocation scheme. 
Next, we configure() devices in the 


system by walking a table of devices — 


calling each device driver’s probe rou- 
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tine with the parameters for each de- 
vice and.-testing for the presence of each 
recorded device. Not all devices need 
be present. In fact, alternative address- 
es may be recorded for the same de- 
vice. If the device is present, a probe 
routine will return true, with a subse- 
quent call to the corresponding attach() 
routine to allocate resources (memory, 
interrupts, and so on) for the device and 
wire it into 386BSD. (In future articles, 
we will discuss how 386BSD dynami- 
cally structures the interrupt control de- 
vices on-the-fly.) 


The UNIX paradigm 
is “process-centric, ” 
that is, most of the 
Activity is built 
around the current 
running process 


After cpu_startup(), the system be- 
gins to schedule processes. We allow 
for this by enabling the rescheduling 
clock. This clock periodically interrupts 
the kernel and adjusts the priority of 
other processes that might compete for 
use of the processor. 


Mounting the Root 

We next initialize the virtual filesystem 
layer. We make our first reference to it 
by mounting the root filesystem and 
marking it as the top-level point from 
which to resolve filename references. 
The root filesystem, like other filesys- 
tems, can be of many different types. 
However, as this request is honored by 
code that calls successively lower-layer 
functions, we ultimately get to the bot- 
tom layers in the form of a device driv- 
er that extracts from the disk or network 
the external information of the filesys- 
tem on which all files are stored. If the 
root filesystem cannot be located, 386- 
BSD abruptly terminates. 


Final Machine Initialization 

Our final machine initialization step is to 
split process 0 into three processes (see 
Figure 1). This is done by creating sep- 
arate copies of initial process 0 with the 
fork1() kernel service. fork1() imple- 
ments the “replicate process” function- 
ality used by the UNIX /fork() system 
call. After being copied twice (creating 
process 1 and 2—both blocked), pro- 


cess 0 will call the scheduling function 
sched(), which endlessly selects pro- | 
cesses to shuttle in and out of secondary 

storage. In essence, it also manages to 
enforce a “fairness” policy on running 
executable processes present in RAM 
memory. If sched() finds nothing to do 
(as it will at this stage of the system’s 
life), it will block, waiting to wake up 
when things need to be shuffled again. 

When process 0 blocks, process 1, 
which has been patiently waiting since 
fork1() was invoked, can be run: Pro- 
cess 1 is then furnished a user address 
space with a tiny user program insert- 
ed into it. The user process is then, trans- 
ferred. The first instruction is to execute 
a file on the root filesystem (/sbin/init). 
Thus, our tiny bootstrap program, wired 
into the kernel, pulls in a much larger 
UNIX program located in the root. Even 
better, the init program is created with 
the same tools, operates in the same 
protected fashion, and functions with 
the same system calls as any UNIX pro- 
gram. This means we can use the rich- © 
ness of the program environment to 
build a more elaborate degree of func- 
tionality as the system boots itself up. 
At some point, however, process 1 will 
block (perhaps waiting for the disk to 
find a block of data for init). At this 
point, another process can be run. 

Process 2, yet another copy of process 
O, is given the chance to run at this point. 
It will immediately call the pageout() 
function, the sole purpose of which is to 
scout out pages of underutilized memo- _ 
ry (that is, held by some process, but not 
being used). This compulsive little func- 
tion varies its activity depending on the 
amount of unused memory available. If 
little memory is available, it rapidly bails 
water, forcing pages of processes out to 
secondary storage (swap space) to pre- 
vent the system from becoming consti- 
pated due to lack of memory. If plenty 
of memory exists (as does at the start of 
system boot up), it blocks waiting for a 
more desperate time. 

Processes 0 and 2 are system pro- 
cesses that only run in the kernel — as 
endlessly looping functions, they pro- 
vide a special service when awakened. 
Process 1, on the other hand, is an ordi- 
nary user process running code loaded 
from the root filesystem. Among other 
niceties that our init program provides, 


_it offers a command interpreter through 


the use of the UNIX fork() and exec() 
primitives. In Figure 2, for example, 
fork() and execve() system calls are 
successively used to replicate a new pro- 
cess (process 3) and execute the default 
command interpreter (or shell) /bin/sh. 
In turn, the shell will follow. the same 
mechanism to create more processes 
and fill them with programs the user re- 
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quests. The thick grey line in Figure 2 
delineates the state of the world by the 


’ “end of main() in the kernel. The as- 


terisk represents the point where the 
first user instruction is executed, while 
below the line all remaining initializa- 
tion, done by user processes, occurs. 

The two system processes provide a 
synchronous mechanism (remember, 
the high layers are synchronous) to 
rectify resource imbalances. By pos- 
sessing the complete resources of a pro- 
cess, each can use the kernel’s ver- 
satility, including blocking operations 
that the asynchronous lower layer rou- 
tines are forbidden to use (such as re- 
questing disk I/O). 


Summary 

In this article, we have just touched on 
the layout of our generic 386BSD sys- 
tem (4.3 > x < 4.4), and introduced many 
of the mechanisms, data structures, and 
relationships between them. Our point 
is not to provide exhaustive descriptions 
of the operation of BSD in general, but 
to provide enough background to un- 
derstand the operation of 386-related 
code, as well as design choices. 

To accomplish this. task, we’ve pur- 
posely not described much of the de- 
tail of the various BSD subsystems; it is 
sufficient at this point if you have ob- 
tained some notion of what they are 
and why we need to turn them on in 
the order that we do. In conducting a 
port, one actually makes it through this 
body of code pretty quickly. It is the 
ticklish operations of fork, exec, and 
process context switching that get the 


first shakedown journey and surprises. 


Also, when the kernel design has been 
refined, and much of this code revised, 
this area. continues to present challenges. 

In the next article, we will leave the 
hand-waving descriptions of process 
switching behind and dig into some ac- 
tual code. In particular, we shall exam- 
ine sleep( ), wakeup( ), and swtch(), and 
how the three of these bring off the il- 
lusion of multiple simultaneous process 
execution on a sole processor. We will 
also delve into why the UNIX paradigm 
shifts comparatively easily when it comes 
to multitasking, and why it’s been such 
a long uphill climb to move others (no- 
tably MS-DOS and Finder) into pre- 
emptible multitasking. Finally, we will 
discuss some of the requirements for the 
extensions needed to support multipro- 
cessor and multithreaded operation in 
the monolithic 386BSD kernel. 
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High-level languages for embedded systems 


henever the topic of high- 


Truman T. Van Sickle 


level languages and micro- ; - ee 


controlfers comes up, the 
response is usually some- 
thing like, “The microcon- 
troller doesn’t have enough RAM,” or 


“There's nevef enough ROM,” or “Com- | J 


pilers don’t create the tight code need- | 
ed for microcontroller operation.” Of | | 


course, these statements most often 
come from assembly language pro- 


grammers who believe that compiler | ~ 


writers are more concerned with com- | — 


pilers than with the final performance : 


of the code generated by the compiler. | a. 


Nevertheless, there are advantages to 
using a high-level language and com- 
piler for programming microcontrollers. 
One is comprehensibility. Code written 
in a high-level language has a format 
derived from the problem being solved. 
The program comprises a series of 
statements, each statement solving a 
small portion of the problem without 
concern for the computer. Almost any- 
one with some understanding of the 
problem can examine a high-level lan- 
guage program that executes the prob- 
lem and understand the intent of the 
program. This is unlike assembly lan- 
guage, where code written by one as- 
sembly language programmer often can- 
not be understood by another. 
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Furthermore, high-level programs can 
usually be written faster than assembly 
language programs because high-level 
language programmers work with the 
problem, focusing their efforts on solv- 
ing the problem. They don’t need to 
woiry about the available computer re- 
sources required to resolve the prob- 
lem. The compiler writer, on the other 
hand, can use all available computer re- 
sources properly in the implementation 
of any program. 

Portability is another advantage of 
high-level languages. Different machines 
have completely dissimilar assembly lan- 
guages. Even machines within the same 
family of parts have differing assembly- 
level features. Compiler writers must 
take great care to mask these differences 


so that the language will be the same 
from machine to machine. Programs 
written in a high-level language for one 
part in a family of parts should require 
little rework to be moved to another 
family member. 

In this article, P’ll discuss high-level 
microcontroller programming, using Mo- 
torola’s 68HC05 and Byte Craft’s C6805 
C compiler. As an example, I'll add time- 
of-day functionality to two members of 
the 68HC05 family, the MC68HC05J1 
and MC68HC05C8. 


Internal Time-of-Day Clock for the 
MC68HC05J1 

The MC68HC05J1 is the simplest of the 
HC05 family of parts. Its clock is prim- 
itive, and the time intervals at which a 


—' periodic interrupt can be generated are 


not very flexible. 

C code for the clock portion of such 
a system is shown in Listing Two (page 
128). Two header files are included: 
HC05J1.H, which contains the compo- 
nent-specific pragmas and the defini- 
tions of all bits in the timer control sta- 
tus register; and GENERAL.H, which 
contains several macro definitions that 
are useful in writing code. For exam- 
ple, one of the macros in this file, #de- 
fine FOREVER while(TRUE), is used to 
create a loop that executes forever in 
the main program. 

All of the variables used for this pro- 
gram are declared as global. Inside the 
main program, several initialization 
statements are executed, and the inter- 
rupts on the part are enabled. The com- 
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(continued from page 60) 

ments in Listing One (page 128) explain 
these statements. Following the initial- 
ization is a FOREVER statement, a loop 
that executes while the microcontroller 
is running. 

Inside this loop, the variables sec, mts, 
and hrs are tested, incremented, and set. 
The value of sec is incremented in the 
interrupt service routine __ TIMER(). In 
the main loop, sec is tested to determine 
if it is less than 60. When it is equal to 
60, sec is reset to 0 and mits is incre- 
mented and tested to determine if its in- 
cremented value is 60. When mits is 60, 
it is reset to 0, and hrs is incremented. 
When the incremented value of hrs is 
13, hrs is reset to 1. 

This simple clock is followed by a 
WAIT() statement which places the 
MC68HCO05J1 into the wait mode until 
another interrupt occurs. The variable 
locations hrs, mts, and sec contain the 
current time: Other routines are required 
to display the time on an external de- 
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Table 1 lists nine assembly inst 
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ragma is a C preprocessor com- 
ot defined by the language. As 

the compiler writer can use > the 


bs 





68 


_tions available to the 68HC0S that ave 
) equivalent C call. They can be ac-_ $ 
cessed as either a single instruction — F 
all Uppercase) Or as a function call, 





OF closed Barentheses to fallow _ om 


a2 2 Function | Operation 


Seciboly identified by the lan- 
ec baits uses pragmas to identi- : - 






be oor tr, porti, or portrw, 
. Sods wi ga is s read, — 


vice or set the time with some type of 
push-button arrangement. 

The timer is set up to cause a timer 
interrupt to occur at 8.192-millisecond 
intervals. When the interrupt occurs, the 


Code written in a 
high-level language 
has a format derived 
from the problem 

being solved 


Timer Overflow Flag and the Real-Time 
Interrupt (RTD Flag are both reset. Be- 
cause the interrupt time interval is fixed 
at a rather odd value, a simple integer 
count of the number of interrupts will 
not provide an accurate one-second in- 


| C6805 compiler was written = / | 


to eae | a _. 



















WAIT or WAIT() 


“pragma 


#pragma portxy 
#pragma memory 
#pragma mor 
#pragma has 
#pragma options 
#pragma vector 


CLC or CLC() Clear Carry Bit 

SEC or SEC() Set Carry Bit 

CLI or CLI() Clear Interrupt Flag (turn interrupts on) 
SEI or SEI() Set Interrupt Flag (turn interrupts off) 
NOP or NOP() No Operation 

RSP or RSP() Reset Stack Pointer 

STOP or STOP() STOP Instruction 

SWI or SWI() Software Interrupt 


WAIT Instruction 





terval. A count of 122 interrupts is about 
one second. The error is large enough 
that it must be corrected if this unit is 
to be used as a clock. The correction 
algorithm is as follows: 


1. Count 122 8. 192-ms ticks per second 
for 13 seconds. On the 14th second 
count 123 ticks. This routine provides 
14.000128 seconds per indicated 14- 
second period. — 

2. Repeat the above cycle 79 times and 
on the 80th cycle use a cycle of 14 
seconds with 122 ticks in each sec- 
ond. The elapsed interval of this se- 
quence is 1120.002048 seconds with 
an indicated time of 1120 seconds. 

3. Finally, repeat cycle 2 three times, 
and on the fourth cycle drop one 
8.192-ms tick to provide an indicat- 
ed and elapsed time of exactly 4480 
seconds. 


The variables corrl, corr2, and corr3 
are used to keep track of the cycles just 
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I/O port definition 
RAM/ROM definition 
Mask Option Register 
Instruction set options 
Compiler directives 
Interrupt vector definitions 
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(continued from page 68) 

mentioned. The C code to implement 
*this correction scheme is contained in + 

the timer interrupt service routine of List- 

ing One. 
| The compiled version of this code is 
shown in Listing Three (page 128) 
| where the files HCO5J1.H and GENER- 
AL.H are expanded. The global variables 
are placed in the RAM memory begin- 
ning at the address Oxc0. The first com- 
pound statement in main() is compiled 
as three CLR memory instructions, and 
the initialization of the timer control sta- 
tus register is accomplished by 5-bit 
clear or set instructions. The interrupts 
are turned on with the CLIQ) instruction. 

The code to implement the FOREV- 
ER loop is the branch at the address 
0x330 that returns the execution to the 
address 0x311. Thirty-one bytes of code 
are used to execute the complete clock 
operation in the main() program. The 
interrupt service routine follows the main 
program and requires 70 bytes of code. 
Assembly language programmers 

should examine this code carefully and 
determine if they could do any better 
than the compiler has done here. My 
immediate reaction was that the bit ma- 
nipulation instructions could have been 
replaced by byte operations that require 
less code. On reflection, however, I con- 
cluded that the bit manipulations were 
coded in C by me, and I could easily 
have used byte-type operations and 
saved the same amount of code space 
within the C program. Otherwise, the 
single RTS instruction at the end of the 
main program is the only wasted byte 
in the program. 








unsigned int io: 





. char a{20]; a 
Internal Time-of-Day Clock for the ee oe 
MC68HC05C8 1 a eee data from an 
As the C program in Listing Four (page 2 DE ee Se array in the 6805 */— 
134) illustrates, the timer of the MC68H- | oe a7 oe 
C05C8 is much more flexible than that : ‘LDA. yee. | tr = Sa; /* Setting a pointer to. 
of the MC68HC05J1. While the execut- ic ta oe 8 oe ae of 
ing portion of this program is a few lines oe a 
shorter than the equivalent program for — Se ae Co 
‘the MC68HCO05J1, the setup portion of | ee ene the array 
the program is significantly longer be- 2 ee: pie Sa nsing 
cause the MCO68HC05C8 is a much big- eee || ho bendie i: aae 
ger part. 5 AEC sy ee - pointers, *7 
Examine the code in Listing Four. The - es oe eet Se 
| MC68HC0S5C8 has several registers that ) A ee 
are 16 bits. The machine must handle ieee ie | 


these registers as two 8-bit registers. The — 


three declarations at the beginning of 
this program provide a foolproof means 
of dealing with the two 8-bit parts of a 





16-bit register. The first declaration is | goalies oe 0B BB 
that of a structure, as shown in Exam- 0128 40 
| 0129 C7 OB BB 
| ple 1(a), page 74, and the second is for — - 
a union, as in Example 1(b). A union _ ole 301 


is compiled to provide enough space 
for the storage of the largest element in 
: (continued on page 74) 
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(continued from page 70) 
“variable. The 6805 has no way to usé 
a 16-bit variable to access memory 
without doing some form of self-mod- 
ifying code. Knowing this, the devel- 
oper using fixed arrays rather than 
pointer arithmetic for the storage and 
retrieval of data will get better code 
from the compiler 

Example 1 shows the differences be- 
tween the two access methods. In an 


68HC05 


lack of a 16-bit index register causes 
the compiler to generate considerably 
longer code for the pointer access. 


Page 0 Variables 

The 6805, like many single-chip mi- 
croprocessors has dedicated some of 
its instructions to accessing data in the 
first 256 locations of memory. In the 
6805, this area of memory is dedicated 
to memory-mapped I/O ports, scratch- 


SS  ——_—— 


and accesses this area directly. Good 
compilers know where the target data 
of its instructions are and emit appro- 
priate code. The programmer can al- 
locate frequently used variables in the 
first 256 bytes of memory to substan- 
tial advantage. Example 2 shows two 
syntactically identical code fragments 
generating 7 bytes or 2 bytes depend- 
ing on variable location. 


array, data is accessed first by an array 
access and secondly by a pointer. The 


Eeumble 3: For branches beyond 128 bytes, the 6805 C compiler reduces 5 


bytes of code to 2 bytes. 
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pad RAM, and often some ROM. Almost 
half the 6805 instruction set is Page 0 


Branching 

The instruction set in the 6805 restricts 
conditional branch offsets to a single 
byte (129-bytes forward and 126-bytes 
back from the branch instruction). To 
conditionally branch beyond this range, 
a branch with the complement condi- 
tion branches around a jump instruc- 
tion. This requires 5-bytes of generated 
code and on average increases the ex- 
ecution speed. By keeping control state- 
ments Gif, while, and for) short condi- 
i 7 tional branches will be generated with 
2 bytes of code. This is only a 3-byte 
savings but over a large program it can 
be substantial. See Example 3. 
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(continued from page 70) 
its argument list. In this case, the union 


- Contains two 16-bit items, so the decla-* 


ration in Example 1(c) provides 16 bits 
of storage. It is possible to deal with the 
16-bit location as either a long or 2 
bytes, and there is no question as to 
where the bytes will be stored. Note 
that in the interrupt service routine 
__TIMER(), this union is used to move 
the contents of the timer count register 
into memory with two 1-byte moves, 
and then 500 is added to the long word 
of the union. 

The main() routine of this program 
has a different setup because it is nec- 
essary only to enable the output com- 
pare interrupt and the interrupts for the 
processor. The remainder of the main 
program is identical to that of the ear- 
lier version for the MC68HC05J1. 

The timer interrupt service routine is 
significantly different in this program. 
After an interrupt occurs, it is necessary 
to clear the timer overflow and the out- 
put compare flag bits in the timer sta- 
tus register. The timer overflow bit is 


cleared by reading the timer status reg- 


ister prior to reading the low byte of the 
timer count register. The output com- 
pare flag is reset by writing to the out- 
put compare low byte after reading the 


timer status register. These operations 
are accomplished in the: first seven lines 
of code in the interrupt service routine. 
Also, in this portion of the code, the 
contents of the timer compare register 
are incremented by 500 to prepare for 
the next interrupt time. This processor — 
when running with a 4-MHz oscillator — 
will have the internal clock increment 
every two microseconds. Therefore, 
adding 500 to the output compare reg- 





Example 1: A union is compiled to 
provide enough space for the storage 
of the largest element in its argument 
list. (a) The first declaration is that of 
a structure; (b) the second is for a 
union; (c) the union contains two 16- 
bit items, so the declaration provides 

16 bits of storage. 


Multifask! Executives 
Accelerate Real-lime Design 


MultiTask! executives support today’s 


ister will cause the processor to be in- 
terrupted by the timer once every mil- 
lisecond. 

The remainder of the interrupt service 
routine is quite simple. The interrupt ser- 
vice routine is entered once each mil- 
lisecond. Therefore, when the value of 
count which is initialized to 1000 is decre- 
mented to 0, exactly one second has 
passed. If the decremented value is not 
count, then the program returns to the 
main program. When the decremented 
value is zero, the location sec is incre- 
mented, and count is reset to 1000. Re- 
member that sec is processed in the main 
program loop so nothing more is need- 
ed in the interrupt service routine. 

In the compiled listing version of List- 
ing Four, the file HCO5C8.H is much 
longer than the corresponding file for 
the MC68HC05J1. (Due to space con- 
straints the compiled version is not 
shown here, but it is available elec- 
tronically; see “Availability,” page 3.) 
The MC68HC05C8 has many more reg- 
isters than the MC68HCO05J1, and the in- 
dividual bits within these registers are 
each named in the HC05C8.H file. 

The declaration of bothbytes and is- 
both does not cause memory allocation. 
The declaration of the union time_ 
comp_count causes the allocation of the 
memory. With the exception of the ini- 
tialization, the compiled version is func- 
tionally the same as that shown in List- 
ing Three. The interrupt service routine 
requires 56 bytes in this case. There are 
two returns from the interrupt service 
routine, and in both cases the compil- 
er inserted an RTI instruction. 


Summary 

The C6805 compiler was written for a 
microcontroller that has many limita- 
tions when compared with the typical 
computer. All the unique features of the 
microcontroller can be placed in a head- 
er file; inclusion of this header in the 
program will assure that the proper fea- 
tures of the microcontroller will be made 
available to the compiler. C6805 adheres 
to the ANSI standard for the C language 
as far as is practical when the comput- 
er is considered. 
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Six Easy STEPS To 
Get Started In DSP 





If you develop or use in-house applications that do severe 


number crunching, we're sure you've considered exploring 
Digital Signal Processing (DSP). With our tools, your appli- 
cations can quickly take advantage of DSP technology. Our 
intuitive, open-architecture toolset provides a cost-effective 
way to jump into DSP. 





Your decision to use DSP 
leads to several paths. With 
DspHq, our premier DSP 
software environment, you 
can gather, process, and dis- 
play data. Or use DspHost 
to provide transparent, C 
language |/O functions for 
AT&T DSP32 hardware. 





By using DspHq you can do signal processing and develop 
DSP algorithms on your PC. By combining DspHq with one 
of our DSP boards, you have a screaming PC-based system 
for DSP development. DspHost gives DSP32c programs 
direct access to your PC's keyboard, console, and disk using 
standard C 1/O functions. 
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Adding DSP to your applications isn't a difficult decision. 


With the fast numerical operations on DSP hardware, the 
real-time flexibility of manipulating your data, and the sheer 
power of DSP when compared to traditional techniques, 
making the DSP decision is easy. Call us to find out how to 
make your specific application scream. 





Software isn't all we offer. 
We provide one-stop shop- 
ping for DSP hardware, of- 
fering you a variety of op- 
tions based on the AT&T 
DSP32c processor. And we 
support it with DSP envi- 
ronments, C compilers, as- 
semblers, and debuggers. 


It's easy to get going in DSP-just add this powerful technol- 
ogy to your applications. Let us show you how to apply our 
PC-based DSP tools to your specific application. With our 
software, hardware, and expert understanding of how to 
apply DSP technology, we'll make you a DSP guru in no time. 
Call us for more information and a free demo of DspHq. 
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Decimal Fractional 
ONVETSION 





Converting decimal fractions to binary in assembly language 


+ 





ore often than not, writing 

code for an embedded sys- 

tem means looking for a bal- 

ance of speed and storage. 

When the system must pro- 
cess numerical data, this can become 
critical, arithmetic takes time. There are 
any number of solutions that might be 
implemented, such as sticking to inte- 
ger only arithmetic, or going to fixed 
point if fractional calculations are nec- 
essary. Even then, systems that must re- 
late to humans for numerical data of- 
ten receive it in decimal form, and 
because decimal arithmetic is not na- 
tive to most processors, what follows is 
some form of radix conversion. Good 
front-end routines can make a differ- 
ence in speed, storage requirements, 
and accuracy and the 8086 provides 
some tools to aid in this effort. 


Common Conversion Methods 
Tables are commonly used for conver- 
sions between one “kind” of thing to 
another, such as rpm to cycles, pounds 
to stone, feet to millimeters. They are 
useful for converting between bases, 
too. However, they require more space 
and are slower than necessary, and they 
do not accommodate fractional parts 
particularly well. 

Another common method is to per- 
form a straightforward integer conver- 





Don ts a consulting engineer specializ- 
ing in embedded systems. He can be con- 
tacted at Pacific Precision Laboratories 
in Chatsworth, Calif., or at Don Morgan 


Electronics, 2669 N. Wanda, Simi Val- 


ley, CA 93005. 
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sion, keeping track of the decimal places 
for fractional parts so that a final divide 
can be done to bring the result back in- 


to range. This is a common solution but. 


requires the program to keep track of 
the radix point and does not readily pro- 
duce fractional parts native to the hard- 
ware of an embedded system, such as 
D/A converters. 

There is another approach that works 
well on processors that provide in- 
structions for doing decimal adjust- 
ments —the 8086, for instance —that is 
faster than the table-driven method and 
produces true binary fractions for either 
fast, fixed point routines or hardware. 


Fractional Parts 

The code fragment in Example 1 pro- 
vides an interesting example of radix 
conversion performed by multiplying 


the input value by the target base, us- 
ing the arithmetic of the base being con- 
verted from. In this case, where the tar- 
get is binary and the convert-from base 
is decimal, the conversion is accom- 
plished using simple additions and the 
DAA instruction. 

After the input has been buffered, the 
numbers following the radix point are 
packed and placed in an accumulator 
concatenated with a result variable to 
hold the converted mantissa. The num- 
ber in the accumulator is added to it- 
self to perform a multiply by two and 
take advantage of the AF flag. All stan- 
dard carries are allowed to occur and 
overflow into the concatenated register 
meant to hold the mantissa. Each ad- 
dition is followed by the DAA instruc- 
tion to handle the additional interdigi- 
tal carries that can occur with a decimal 
overflow. This conversion can contin- 
ue until the accumulator is exhausted 
or the desired precision is reached. In 
addition to being fast, this method can 
produce higher accuracy than the table 
method just mentioned. 


The Conversion Routines 
The code in Example 1 was written for 
an embedded system using fixed point 
arithmetic to perform high-speed cal- 
culations in a real-time control applica- 
tion. It expected values ranging from 
00002 to 50,000, a range that allowed 
both integer and mantissa to share a 
doubleword (32 bits) with the radix 
point between the two words. This rou- 
tine can be rewritten, however, to ac- 
commodate data of any size. 

Before calling the subroutine, the frac- 
tional portion is packed and stored in 
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FRACTIONALS 


mantissa word 

dec frac word 

; ftrac-conversion of decimal fractional part to hex 
; enter with packed decimal word in ax 

; returns with result in dx\ 

;DS is assumed to point into the Data Segment 


frac proc 

mov cx, 10h ;number of bits in resulting mantissa 
Cove: 

add al,al ;could add to self, we will see 

daa = 

mov bl,al 

mov al,ah 

She nc. 

add al,al ;could add to self, we will see 

daa 

inc al 

jmp short nec2 


sacl al al ;could add to self. we will see 
daa 


mov ah,al 

mov al,bl 

rol de, 

loop envt 

sub ax,5000h 

9c end trac 

ine Gs ;fOr round off 
end frac: 

mov word ptr mantissa,dx 

ret 
frac end 





C7 
Example 1: Fractional conversion routine 
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C6805 Code Development System 


eFirst C compiler for the 6805 family 
eFast, efficient optimizing compiler 
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CRAFT C6805 Code Development System is copyright of Byte Craft Limited, IBM PC/XT/AT, 
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(continued from page 76) 

DEC_FRAC. The FRAC subroutine is 
called with AX already loaded with the 
packed fraction still in decimal notation. 
Upon entry, CX is set to the number of 
bits in the resulting mantissa; this tells 
the routine when it is at the needed pre- 
cision. Each byte is multiplied by two 
through addition (NOT SHIFTED) in or- 
der to use the Auxiliary Flag as well as 
the standard Carry. Following each ad- 
dition, the DAA instruction is executed 
to handle decimal overflows, with the 
carry flag being checked, as well, to han- 
dle normal carries. Both types of over- 
flow are handled to maintain decimal 
arithmetic. At the end of this routine, the 
remainder still in AX is checked and the 
fraction in DX is rounded up if neces- 
sary. The result is placed in MANTISSA. 


Conclusion 

A routine of this sort can be useful, as 
it does without the ROM or RAM stor- 
age required of a table-driven routine. 
Even more interesting, though, is its abil- 
ity to produce a binary fractional con- 
version with accuracy and speed. 


DDJ 


Vote for your favorite feature/article. 
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C Language 


#8 


If NULL and O are equivalent, which 
should I use? 


Either; the distinction is entirely 
stylistic. 


But wouldn’t it be better to use 
NULL (rather than 0) in case the 
value of NULL changes, perhaps on 
a machine with nonzero null 
pointers? 


No. NULL is, and will always be, 0. 


I’m confused. NULL is guaranteed to 
be 0, but the null pointer is not? 


A “null pointer” is a language 
concept whose particular internal 
value does not matter. A null pointer 
is requested in source code with the 
character “0”. “NULL” is a 
preprocessor macro, which is always 
#defined as 0 (or (void *)0). 


Copyright © 1991 Steve Summit 
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EXAMINE NG -R 0.0m 


enever the question of 

compiler benchmarks rais- 

es its ugly head, the axiom 

“lies, damned lies, and 

benchmarks” immediately 

jumps to mind. Nevertheless, bench- 

marks can be a valid means of com- 

parison, especially when you have the 

opportunity to benchmark the actual ap- 

plication program you’re developing. 

This leads to a second commonly spout- 

ed maxim about benchmarks: “The best 

benchmark is the program you are ac- 

tually going to use.” Unless you bench- 

mark your actual application program, 

your experience of a particular compil- 
er’s performance will vary. 

With this in mind, I recently mea- 
sured the performance of a program I 
use all the time — XScheme. This 
choice of a test program was not made 
because it happened to fit my person- 
al benchmarking needs, but because it 
presents a general-purpose, nontrivial 
test of a compiler’s functionality and 
performance. While XScheme is by no 
means an exhaustive testbed for all 
compiler features or application re- 
quirements, it did suit my immediate 
needs, and I’m sharing my findings 
with you. : 

Consequently, I examine in this arti- 
cle nine different C compilers for MS- 
DOS: Four protected-mode compilers — 
Watcom C/386, Metaware High C 386/ 
486, Intel’s 386/486 C Code Builder, and 





David is a technical editor for DDJ 
and the author of XLisp, XScheme, 
and the TelePath conferencing sys- 
tem. He can be reached at DDJ, 501 
Galveston Drive, Redwood City, CA 
94063. 
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Testing C Compiler. 


Performance 


to the test 


David Betz 


Microway NDP C-386,; and five real- 
mode compilers — Microsoft C, Borland 
C++, JPI TopSpeed C, Zortech C++, and 
MIX Power C. 


The Playing Field 

My tests were performed on an Everex 
Step 386/20 with 4 Mbytes of memory, 
a 64K cache, an 80387 floating point 
coprocessor, and a Seagate ST4096 80- 
Mbyte MFM hard disk drive under MS- 
DOS, Version 5.0. I used DOS 5.0 part- 
ly because it supports disk partitions 
larger than 32 Mbytes, making it possi- 
ble to install all of the compilers at the 
same time. In addition, this was an ex- 
cellent opportunity to test these com- 
pilers under the new operating system. 

All of the timings in this article were 
generated with FILES = 30 and BUF- 
FERS = 10 in CONFIG.SYS. I mention 
this because the installation procedure 
for Intel’s C Code Builder suggests that 
BUFFERS be set to no less than 30. The 
tests for each compiler should be on 
equal footing, so I used BUFFERS = 10 
for C Code Builder as well. 

Just for comparison purposes, I tried 
the XScheme compile with BUFFERS 
= 30. As you might expect, C Code 
Builder compiles somewhat faster. Of 
course, so does Borland C++, and I 
imagine the others. do, too. In spite of 
the recommendation in the Code 
Builder installation procedure, I think 
the results presented here give an ac- 
curate representation of the relative per- 
formance of all the compilers, and that 
the performance of any of them could 
be improved by increasing the number 
of buffers. 

Both the Metaware and Watcom com- 
pilers I tested generate code that runs 


XScheme puts these nine compilers 3 


in protected mode on the 386. This re- 
quires the use of a DOS extender. I used 
the Phar Lap 386|DOS-Extender SDK, 
which provides an environment for run- 
ning protected-mode programs under 
DOS and includes an assembler, linker, 
and debugger. 

I’ve also taken a brief look at Ratio- 
nal System’s Oxygen program. Oxygen 
is a product designed to be used with 
Microsoft C to allow the protected mode 
copies of the Microsoft compiler and 
linker to be run under DOS. This allows 
for compiling much larger programs, as 
all of extended memory can be used by 
both the compiler and linker. It also 
seems to considerably speed up com- 
pile and link times. 


The Yardstick 


There are two important aspects of a 
compiler’s performance: generating 
compact and efficient code and com- 
piling and linking efficiently. The latter 
is particularly important during program 
development when large portions of 
the program are recompiled often, as 
changes are made to global header files 
or large modules. 

To test compile and link speeds, I 
chose a program I wrote called 
“XScheme,” an interpreter for the Scheme 
dialect of Lisp. XScheme is a relative of 
XLisp, which I wrote before creating 
XScheme. (For more information on 
XScheme, see the accompanying text box 
“XScheme’s Timely Role.”) The entire 
program consists of about 10,000 lines 
of C code (including blank lines and 
comments). Lisp-like languages are not 
known for parsimonious use of a ma- 
chine’s instruction cycles; therefore, tim- 
ing the speed of XScheme execution is 
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(continued from page 80) 
» a-fair test of the binaries produced by a 
given compiler. Although there’s far more 
source code to XScheme than could be 
printed here, it’s available electronically 
for those of you who are interested in it 
as a language implementation, as well 
as those who wish to confirm the results 
presented in this article; see “Availabili- 
ty” on page 3. | 

Because all of the compilers tested 
here claim ANSI conformance, I spent 
some time adding ANSI prototypes to 
XScheme so that I could test the com- 
pilers with their ANSI compatiblity func- 


Microsoft C 


-AL Use the large memory model. 
-AS Use the small memory model. 
-FPi 
doesn’t exist at runtime. 
-FP87 
-Gs Disable stack overflow checking. 
-Za Enforce ANSI compatibility. 
-Ox Maximize optimization. 


JP! TopSpeed C 


option(ansi=>on) 
optimize(speed=>on) 
optimize(cpu=>386) 
optimize(copro=>387) 


Zortech C . 


-ml Use the large memory model. 
-ms Use the small memory model. 


-f Generate inline floating point instructions. 


-O Optimize. 
-A Check for ANSI compatiblity. 


Power C 


/ms Use the small memory model. 


/f8 Use hardware-only floating-point library. 


Watcom C 


tions enabled. (Editor’s note: Adding 
ANSI prototypes didn’t uncover a sin- 
gle problem in the XScheme code!) I 
have measured the compilation speed 
both with and without optimization en- 
abled. My assumption is that optimiza- 
tion is usually not necessary during de- 
velopment and that disabling it usually 
leads to faster compile times. 

In addition to measuring the time re- 
quired to compile XScheme, I have al- 
so measured the performance of the re- 
sulting executables. I’ve done this by 
timing the execution of an implemen- 
tation of the Fibonacci function written 


Generate inline floating-point instructions, with emulation if an 80x87 


Generate inline floating-point instructions; an 80x87 is required at runtime. 


Check for ANSI compatiblity. 

Optimize for speed over size. 
Generate code for the 80386. 
Generate code for the 80387. 


-fpi Generate inline floating-point instructions, with emulation if an 80387 


doesn’t exist at runtime. 
-fpi87 
-za Disable non-ANSI extensions. 
-S Disable stack overflow checking. 
-oatx Optimize: 


a_ Alias checking relaxed 
t Speed favored over size 


Generate inline floating-point instructions; an 80387 is required at runtime. 


x Generate some library functions inline, enable loop optimiza- 
tions, no stack overflow checking. 


Metaware High C 


-Hansi Check for ANSI compatiblity. 
-O Turn on full optimization. 
-f387 


Microway NDP C 


-n2 Generate inline 80387 code. 
-n3 Advanced 80387 stack utilization. 
Check for ANSI compatiblity. 


Generate code for the 80387 coprocessor. 


Perform code hoisting and peephole optimizations. 


Turn on all optimizations. 


Additional memory optimizations, add speed optimizations related to moving 
code out of loops and speeding up loops. 


C Code Builder 


-n Include 80387 emulation library (link switch). 

+t Include information for link-time type checking. 
-0O0 __ Select the lowest level of optimization. 
-03 Select the highest level of optimization. 





Table 1: Description of switches used in compiling the test programs 
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in Scheme and run under each of the 
interpreters generated during the com- 
pile tests. 

As a second performance measure, 
I’ve written a program called “CTest” 
that contains two separate tests. To test 
floating-point performance, I’ve used a 
modified version of a fractal tree pro- 
gram published in the article “Fractals 
in the Real World” by Dick Oliver (DDJ, 
April 1991). It does a large number of 
floating-point operations in the process 
of generating the fractal tree and seems 
like a better test than some of the do- 
nothing sequences of floating-point op- 
erations that have been used in thé past. 
So that only floating-point performance 
is measured, I’ve written dummy ver- 
sions of the graphics routines that ac- 
tually draw the tree. CTest is also avail- 
able electronically. 

The second test in CTest is a C ver- 
sion of the Fibonacci test that I ran un- 
der XScheme. This is really a subrou- 
tine call test because it performs 
relatively few operations other than calls. 

CTest reports its results in terms of it- 
erations per second. In the case of the 
floating point test, this is the number of 
trees generated per second. To compute 
this, 100 trees were generated and the 
elapsed time was divided by 100. In the 
case of the Fibonacci test, this is the 
number of computations of /ib(25) per 
second. To compute this, fib(25) was 
computed 100 times and the elapsed 
time was divided by 100. The only ex- 
ception to this is in the case of the Pow- 
er C compiler. Its performance was so 
slow that only 50 iterations of the tree 
test were performed and the elapsed 
time was divided by 50 to get the num- 
ber of trees per second. 


Switch Settings 
For the XScheme test, I used the large 
memory model for all real-mode com- 
pilers and the flat memory model for 
the protected-mode compilers. I used 
software floating point (although the 
tests I ran didn’t contain any floating- 
point code). For the optimized versions, 
I optimized for speed rather than size. 
For the CTest test, I used the small 
memory model and tried to use the best 
optimization switches to get good float- 
ing-point performance. I used switches 
that allowed the compilers to generate 
inline floating point instructions where 
possible, and I forced the use of the 387 
coprocesser chip. Table 1 provides de- 
scriptions of the various switches used. 


The Players 

The benchmark results that appear in Ta- 
bles 2 and 3 speak for themselves, and 
you can draw your own conclusions. 


But, in looking over the various pack- 
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Experiencing "Unrecoverable Application Errors"? 


Don't Fear... 
MultiScope Crash Analyzer is Here! 


Without the MultiScope Debuggers for Windows: 





UNRECOVERABLE APPLICATION ERROR 


Terminating current application. 


og . 
| =| ea 


Program Manager File Manx get Control Panel 


__Photolmage - {imag ” Bien ot ndews Expression Setup 
| File Edit View Tools Image poe Scan Help ene File Find Show 
lin [0 1 / = i 
| sizeSettingl DS_CUSTOM].x = sizesettifa 
sizeSetting([DS_CUSTOM].y = sizeSett eemer annem ceeere 


3bise stohite 
/ spatchitss 
Hee Fi indowProc so 
Sat ceeteMersnae +) 


RulerGetUnitStringl ait units, buffer 
peumrel vent ext(hbie. NEWDOC_UNIT 


An exception has occurred. Press "Dump" to create : / SetBigitertinit si oti ea DOC_WIDEH, | 
the Post-Mortem Dump file: | | . SetDigitenUnit ChDig, I 


DAPHOTOIMG\PHOTOIMG.PMD 


Register Procedure 





-. For more information, call MultiScope Sales at (800) 999-8846 


MultiScope Debuggers for Windows provide the MultiScope 
Windows Run-Time Debugger, MED and Crash Analyzer for an 
introductory price of $379 
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(continued from page 82) describe the features of these packages 
ages, you may want to consider more | and note any problems I encountered 
than the raw data. Therefore, I'll briefly | during the tests. 

(a) 

Real-mode Compilers . 


Without optimization With optimization 
Compile Size Execute Compile Size Execute 


Microsoft C 1103 137638 94 1344 139190 
w/Oxygen 664 802 

MSC with -qc 160 183922 

Borland C++ 144 136434 99 146 132130 

Zortech C 151 132382 90 310 133470 

TopSpeed C _ oon 130724 sii 123156 

Power C (wouldn’t compile) (wouldn’t compile) 


Protected-mode Compilers 


Watcom C 304 98132 96320 
High C 666 104456 102104 
C Code Builder 594 23984 1* 213597* 
NDP C (wouldn’t compile) 





If you're looking for 
some good reading, 


* The size includes a bound in DOS extender 





you've just found it. (b) 
The free Consumer Compiler Without optimization With optimization 
Information Catalog. pe Nica “AL -FPi -Gs -Za -Ox 
onto pe i . ig! -H=xs_bce.sym { pi - i -A -H=xs_bc.sym 
The Catalog lists TopSpeed C aegis oracrhalopocdarat 
about 200 federal a ue 
publications, many Of || Cos. euider “nt 00 nt 08 
them free. They can NDP C (wouldn’t compile) 
help you eat right, Table 2: (a) XScheme compile and execution times (fib 25), and file sizes gener- 
manage your ated ; (b) Switch settings used. 
money, stay healthy, (a) Real-mode Compilers 
plan your child's fib(25) tree 
education, leam = Zovech atest D254 
Ss 
about federal benefits Borland G+ «4.21081 «0.306748 
and more. Power C 1.190476 0.082372 
Protected-mode Compilers 
So sharpen your ort ae 
pencil. Write for the ere te 


free Consumer 
Information Catalog. 


* The size includes a bound in DOS extender 


- 





: (b) Compiler Switches 
And get reading 
ous Microsoft C -AS -FPi87 -Gs -Ox -Za 
worth writing for : Zortech C -ms -f -0 -A 
TopSpeed C option(ansi=>on), 
optimize(speed=>on,cpu=>386, 
ee copro=>387) 
a Borland C++ -ms -f287 -G -O -A 
Power C /f8 /ms 
Watcom C -fpi87 -za -s -oatx 
' High C -f887 -Hansi -O 
H C Code Builder -n -t -O3 
Consumer Information Center ore a 
Department RW Table 3: CTest benchmark results. Execution times are in iterations per second 
Pueblo, Colorado 81009 (a); Switches used in the CTest benchmark (b). 
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A new, easier way of debugging an 
size DOS application... 
The MultiScope Debuggers for DO 


eee eA? SUNT ON cet innut ow lines Ankh oo lumne 1b J we 
MultiScope Debugger 


jE Frogranm ih P¥irst is GO Expression setup ji piss 


border = &border2lOl; gg 2draullindow iit 
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i if wT > 
1 a > 
a . — “a 


void pascal Ee Graphic Data 
dreawuborder (horder, rowl, hee rot 


unsigned char «border 
PAG oud) rege, elt. "col2, be 
register int i; | 


ift tbottomLineDnly ) ft 
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displayChar(rouwl, coll, e 
displayChar(rowl, col2, 
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MultiScope Text-mode Interface 





=, ase Breakpoint 


MultiScope Windows Interface 


The MultiScope Debugger for DOS allows you to allocate nearly all of DOS memory to your program and still 
provide the most powerful debugging tool ever created. You can set 386/486 watchpoints directly on your 
variables, allowing to quickly find the reason of memory overwrites. This package provides the MultiScope 
Run-Time Debugger and Crash Analyzer for DOS for an introductory price of $179.00: 





"This tool for serious developers is packed with features that make "Excellent use of 386/486-specific features." 
debugging easier and almost fun." "The MultiScope Debuggers is an excellent choice." 
- May '91 - May '91 


"All the signs indicated a pointer error, and sure enough, Bounds Checker - in conjuction with the new MultiScope Post- 
Mortem Debugger [Crash Analyzer]- identified the culprit in next to no time at all!" 
- March '91 


For a free trial-version, call MultiScope Sales at 
(Now available through Egghead Software) 


_ MULTISCOP 
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Add rule-based and : 


object-oriented capabilities 


to C programs. Use the 


same compiler and 


debugger you're using now. 


RAL. An extension to 


the C language. Completely 


compatible with your 


favorite C libraries and 


7 


tools. Available exclusively 


from Production Systems 


Technologies, Inc., the 


people who developed 


OPS5 and OPS83. Call 


(412) 683-4000 for information. 





Production Systems 
Technologies, Inc. 
5001 Baum Boulevard 
Pittsburgh, PA 15213 
(412) 683-4000 

(412) 683-6347 FAX 
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- Protected-Mode Compilers A 


Watcom C/386 8.0 Watcom C/386 
Standard Edition comes with a compil- 
er as well as a linker, a make utility, a 
librarian, an editor, and a number of 
other utilities. The Professional Edition, 
which I used for this article, adds a pro- 
tected-mode version of the compiler, a 
profiler, and a source-level debugger. 
The Watcom compiler generates exe- 
cutable files that work with Phar Lap’s 
386 | DOS-Extender. 

One noteworthy problem is that the 
protected-mode compiler is not com- 
patible with HIMEM.SYS that comes with 
DOS 5.0. Watcom says that the next ver- 
sion will support HIMEM, but until then 
you must remove HIMEM from your 
COMFIG.SYS file in order to use the pro- 
tected-mode version of the compiler. 


The TopSpeed project 
system is much more 
powerful than Unix- 
style make facilities 





The only trouble J ran into while com- 
piling XScheme under Watcom C was 
that I overlooked the section in the man- 
ual describing how continuation lines 
work in their make program. Traditional 
Unix make programs use the backslash 
character at the end of a line to indicate 
that the line is to be continued on the 
next line. Watcom decided to change 
this since the backslash (\) character is 
used by DOS as a separator in path 
specifications. Instead, they use the am- 
persand character (&) to indicate a con- 
tinuation line. Once I modified my 
makefile, XScheme compiled without 
any further problems. 

Metaware High C 2.32 Metaware 
High C 386 comes with a protected- 
mode compiler, an editor, a source-lev- 
el debugger, and a profiler as well as a 
number of utility programs. Oddly 
enough, it does not include a make pro- 
gram, so I used the Borland make util- 
ity to build the test programs. It pro- 
duces executables that work with the 
Phar Lap 386 |DOS-Extender. 

When it comes to problems, there’s 
little to say — Metaware High C com- 
piled XScheme without a hitch. 

Microway NDP C 3.1 Microway 
NDP C comes with two versions of the 
compiler — one for their NDP Tool Kit 
and the other for the Phar Lap 
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386 | DOS-Extender. For this article, I 
used the NDP Tools version of the com- 
piler. In addition to the compiler, NDP 
C comes with a librarian, an editor, and 
a number of utilities. 

NDP C doesn’t come with a make fa- 
cility, so J used the Borland make util- 
ity to build the test programs. Unfortu- 
nately, I was unable to get XScheme to 
compile under NDP C. It seems that 
NDP C does not allow the name of a 
macro to be passed as a parameter to 
another macro. Because this feature is 
used by XScheme to parse arguments 
to internal functions, I was unable to 
perform the tests that involved XScheme 
compiliation and execution. I was able 


Lugaru'Se 


epsi 
programmer's editor 


\ . 





Epsilon is available for DOS, 
05/2, SCO Unix & 386/ix. 
Here’s a partial list of features: 


« Clike extension language called FEL. 

« Source code fo all commands. 

+ Language support for C. 

« Multitasks compilers, even under DOS. 

« Scans compiler errors (customizable). 

« Unlimited file size, number of files. 

+ Vertical and horizontal windows. 

+ Fully utilizes EMS memory. 

« EMACS-style command set. 

+ Interactively customizable keyboard. 

+ Context sensitive help autocontigures. 

+ Record keystroke sequences. 

« Regular expression search & tagged 
replace. 

+ Tags package indexes subroutine defini- 
fions. 


Compiler 
Journaling 


* 60-pAY MONEY-BACK GUARANTEE 


Onty $250 Direct 


| Keyboard 
Orvers & Inro: 
(412) 421-5911 ||" 
Fax: (412) 421-6371 





LUGQGar-u 


Lugaru Software Ltd. 
5843 Forbes Avenue 
Pittsburgh, PA 15217 


to compile the CTest program and I’ve 
included those results. 

Intel 386/486 C Code Builder Kit 
The C Code Builder Kit is one-stop shop- 
ping for 32-bit developers and includes 
a 32-bit C compiler, a DOS extender 
compatible with the 0.9 DPMI specifi- 
cation, a source-level debugger, a link- 
er, a librarian, and a make utility. 

I was particularly excited about C 
Code Builder because I’ve had many re- 
quests for protected-mode versions of 
programs I’ve developed and that I dis- 
tribute free of charge to anyone who 
wants to use them noncommercially. 
I’ve been unable to comply due to the 
licensing fees required for the DOS ex- 





At LUGARU, WE BELIEVE A GOOD 
PROGRAMMER’S EDITOR IS MORE THAN 


AN IMPRESSIVE LIST OF FEATURES. 

We take the time to fully develop those features and then 
properly implement them. We pay attention to details— 
details that are important to you. 


EPSILON: PuT IT TO WORK FOR YOU. 


Epsilon 5.0 


Epsilon’s undo key lets you undo 
any sequence of changes, one at a 
time, and the redo key enables 
you to undo your undo’s. So 
you're free to casually use the 
undo facility. And Epsilon remem- 
bers undo information even when 
you write your file to disk. 


Epsilon can shrink to 10K when it 
runs your compiler or other pro- 
gram. You see the program run, 
see any error messages, etc. You 
can even give the program input. 
After your program finishes, you're 
instantly back in Epsilon, with a 
complete input/output typescript. 


Switch between 25 and 50 line 
modes on your VGA at the touch of 
a key. Epsilon also supports 43 
line mode on most VGA’s under 
DOS, plus 30 & 60 line modes un- 
der 0S/2. If your display board 
has other modes, it’s easy to make 
Epsilon use them as well. 


Automate frequent editing tasks by 
defining keyboard macros. These 
record-as-you-go macros are conve- 
nient when you don’t need the 
power of a fultblown extension 
language program. You can define 
as Many macros as you want, 
name them, and attach them to 
keys. 





Brief 3.0 


Its “complete undo” is ire- 
versible—there is no redo. If 
you undo something it’s gone 
forever! And once you write a 
file, its undo information is 
lost. 


Because it uses command line 
redirection to gather the out- 
put, you effectively compile 
blind. So running interactive 
programs is practically impos- 
sible. You must wait until the 
program finally exits to see 

any error messages. 


In order to change screen 
modes, you must exit the edi- 
tor and restart it with a special 
switch. 


To use another macro, Brief 
must read it from disk, replac- 
ing the current macro. You 
can’t put several keyboard 
macros on separate keys with- 
out writing an extension lan- 
guage command to load each 
one. 


Trademarks: “Epsilon” and “Lugoru” are trademarks of Lugaru Software Ltd. “Brief” is o trademark of Underware, Inc. 
Information on Brief is from the manual and conversations with their technical support staff. Versions: Epsilon 5.0, Brief 3.0. 
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tenders required to run them in pro- 
tected mode. With C Code Builder, I'll, 
finally be able to build protected-mode 
executables and distribute them free to 
anyone who is interested. This royalty- 
free policy should be of interest to com- 
mercial developers as well. 

The C Code Builder Kit was a late ar- 
rival so I didn’t have much time to work 
with it. Luckily, I didn’t need much time 
to get both test programs compiled and 
running. I ran into only a minor prob- 
lem in compiling XScheme which in- 
volved a redundant function declaration 
not required for an ANSI compiler. Once 
I got rid of the offending declaration, ev- 
erything compiled without a hitch. 


Real-Mode Compilers 
Microsoft C 6.0 Microsoft C comes 
with both DOS and OS/2 versions of 
the compiler as well as a librarian, a 
linker, a debugger, a make program 
(nmake), and various utilities. It also in- 
cludes an integrated development en- 
vironment, but I used the command- 
line version for this article. In addition, 
Microsoft C supports developing appli- 
cations for Windows 3.0 (using the Win- 
dows SDK). This feature was, of course, 
not addressed by our test suite. 
Because I was running a number of 
compilers that didn’t get along with 
HIMEM.SYS, I had it disabled. This 
didn’t cause any problems until I tried 
to time the compilation of XScheme. To 
do this, I used a simple timer program 
that I wrote for this article. The program 
takes a DOS command as an argument 
and times how long it takes to execute 
that command. Unfortunately, Microsoft 
C ran out of memory when run from 
this timer program. To get XScheme to 
compile, I had to reenable HIMEM to 


SuperHackers 


D. E. Shaw & Co. is a small (several doz- 
en employees), highly capitalized (over 
$300 million in partners’ equity), extreme- 
ly successful Wall Street firm specializing 
in quantitative finance and computational 
trading. Our technical staff includes both 
Ph.D.-level researchers recruited from 
Stanford, MIT, and other leading compu- 
ter science departments and extraordinar- 
ily talented B.S.- and M.S.-level system 
designers and “superhackers”. It is our 
practice to compensate unusually gifted 
individuals at a level exceeding that of the 
market. Applicants are invited to send 
resumes to Ms. Hadassa Klein. 


wm: Ee: SHAw & CS: 


251 PARK AVENUE SOUTH 
ISTH FLOOR 
NEW YORK, NY 10010 
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free up some additional memory for Mi- 
crosoft C: Under DOS 5.0, doing so en- 
ables the operating system to “load 
high,” freeing up memory below 640K 
for the compiler’s use. 

This points out a potential problem 
with using Microsoft C in real mode: It 
sometimes runs out of memory doing 
large compiles. Rational Systems’ Oxy- 
gen solves this problem, as described 
above. Oxygen allows you to run un- 
der DOS the protected-mode version of 
Microsoft C normally used only under 
OS/2. For systems with extended mem- 
ory, this makes much more memory 
available to Microsoft C and the Mi- 
crosoft linker, and makes compiles faster 
(as you can see in Table 2). 

Borland C++ 2.0 Borland C++ 
comes with the compiler itself, a librar- 
ian, a linker, a source-level debugger, a 
profiler, an assembler, a make program, 
and various utilities. It also includes an 





A few years ago, I received a call from 
a graduate student at MIT who was 
looking for a way for computer sci- 
ence students to use the Macintosh 
version of XLisp for homework as- 
signments. The problem was that 
XLisp is based on Common Lisp and 
the course materials assumed Scheme, 
a dialect of Lisp invented at MIT by 
Gerald Sussman and Guy Steele. 

One of my original goals in devel- 
oping XLisp was to build a small, yet 
powerful subset of Lisp for small com- 
puters. Originally, I based XLisp on 
MacLisp. Later, I converted it to be 
more or less compatible with Com- 
mon Lisp when that standard came 
out, but I’ve always been uncomfort- 
able with that shift. Common Lisp is 
a huge language and implementing 
even a subset of it resulted in a lan- 
guage that was much larger than what 
I had originally planned for XLisp. 
Scheme seemed to be a way to solve 
this problem: It’s an elegant, power- 
ful language without a lot of extra 
baggage. 

So with a few minor edits, XLisp be- 
came XScheme. At first, XScheme was 
a straight interpreter like XLisp. How- 
ever, when I added the proper han- 
dling of tail recursion (a feature re- 
quired of every implementation of 
Scheme), I converted it to its present 
form, a bytecode compiler/interpreter. 
The version I used for the C compil- 
er article is 0.28. I’ve assigned it a ver- 
sion number of less than 1.0 because 





XScheme’s Timely Role 





integrated development environment, 
but I used the command-line compiler 
for this article. Another nice feature of 
Borland C++ is that it includes the 
Whitewater Resource Toolkit to allow 
you to develop Windows 3.0 applica- 
tions without any additional software. 
This can save you considerable money 
over buying both Microsoft C and the 
Windows 3.0 SDK. Note that even 
though this is a C++ compiler, I only 
tested its ANSI C features. 

To speed up compilation under Bor- 
land C++ (although it was hardly slow 
to begin with), I used their precompiled 
header option. This creates a symbol 
table file the first time it encounters a 
header file. It then uses the information 
from that file instead of reparsing the 
header the next time it is encountered. 
This improved compile times by about 
six percent. 

Borland provides a program called 





I want to add support for debugging 
before considering XScheme complete. 

One notable change to previous 
versions of XScheme is the addition 
of prototypes to test the ANSI C fea- 
tures of the compilers in the accom- 
panying article. The use of prototypes 
is controled by the STDC __ pre- 
processor symbol, so it is still possi- 
ble to compile XScheme with non- 
ANSI compilers. 

I've written a bench function in 
XScheme to test the executables gen- 
erated by a given compiler and have 
included it in Listing One (page 93) 
as an example of XScheme syntax. 
bench times the evaluation of an ar- 
bitrary expression. To implement this 
function, I’ve added two functions to 
XScheme. The time function returns 
the current time in seconds. The diff- 
time function takes two times returned 
by time and computes the difference 
in seconds. bench also reports the 
number of calls to the garbage col-. 
lector that occur during the evalua- 
tion of the expression. 

Finally, the fib function in Listing 
One computes Fibonacci numbers. 
There is a call to the bench function 
to time the execution of a call to fib” 
to compute the 25th Fibonacci num- 
ber. Keep in mind, however, that 
XScheme is not a benchmark in the 
traditional sense, but provides the op- 
portunity to test a compiler’s perfor- 
mance under real world conditions. 
— D.B. 
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Windows. 
made easy 


Now get real presentation independence in your applica- 





tions with JAM for Windows, the leading client-server de- 
velopment tool for DOS, OS/2, Unix, Xenix, VMS and 
many other platforms. : 
Until now, most application developers who wanted to em- 
ploy the advanced technology of Windows found the learn- 
ing and maintenance costs too prohibitive. Now they have 
an easy-to-use tool: JAM for Windows. 

‘ Write an application once. JAM provides instant port- 

ability between Microsoft Windows, OSF/Motif, character, 
bit-mapped (graphics mode) applications. No recompila- 
tion. No recoding. JAM is the only client-server tool for 
Windows offering such unparalleled portability. 
As a client-server development tool, JAM is unsurpassed. 
We support all of the Windows-compliant client-server 
databases, including: SQL Server, Oracle, SQLBase, X DB. 
And, we never charge runtimes. 


We make Windows very easy. 


JAM from J YACC 


For more information and a free demo disk, call: 





MICROSOFT 
WINDOWS. (800) 458-3313 





JAM is a trademark of JYACC, Inc. All other trademarks and registered trademarks are 
proprietary to their respective manufacturers. 


International inquiries: JYACC, Inc. 116 John Street, NY, NY 10038 USA TEL: 212-267-7722 FAX: 212-608-6753. 
Authorized Resellers: Belgium 3 829 05 81 Denmark: 33 32 5577 England: 491 576 466 Finland: 0 435 3841 
France: 1 46 38 31 31 Germany: 40 79 70070 Israel: 2811462 Italy: 2 25 52 65 2 Sweden: 8 96 10 10 
Switzerland: 21 825 35 85 Yugoslavia: 61 558 493 
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Watcom C/386, Version 8.0 
Watcom 

415 Philip Street 

Waterloo, Ontario 

Canada NZL 3X2 
519-886-3700 

$1295 


Metaware High C, Version 2.32 
MetaWare Inc. 

2161 Delaware Ave. 

Santa Cruz, CA 95060-5706 
408-429-META 

$995 


Microway NDP C, Version 3.1.0 
MicroWay 

P<). Box 79 

Kingston, MA 02364 
508-740-7341 

$895 (for 386), $1195 (for 486) 


Intel 386/486 C Code Builder Kit 
Intel. 

5200 NE Elam Young Parkway 
Hillsboro, OR 07124-5961 
503-696-8080 

$695 
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Products Mentioned 


Microsoft C, Version 6.00A 
Microsoft Corp. 

One Microsoft Way | 
Redmond, WA 98052-6399 
206-882-8080 

$495 


Borland C++, Version 2.0 
Borland International 

1800 Green Hills Road 

P.O. Box 660001 : 
Scotts Valley, CA 95066-0001 
408-438-8400 

$495 


Zortech C++, Version 2.1 
Zortech, Inc. 

4-C Gill Street 

Woburn, MA 01801 
617-937-0696 

$450 


JPI TopSpeed C, Version 3.00 
Jensen & Partners International 
1101 San Antonio Road 
Mountain View, CA 94043 
415-967-3200 

$396 
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Don't Waste Time On Buffer Overwrites! 


Memory errors are the most difficult of all C programming errors to track down. With 
MEMCHECK, you'll never spend another hour looking for them. Best of all, MEMCHECK 
finds them with no source code changes. 


Identifies Buffer Overwrites by Line & rag 
Identifies Invalid Pointer Usage " 
Supports ALL Compiler Allocation Calls 
Finds Stack Overwrites 

Pinpoints Unfreed Memory, Multiple Frees 
Works in Any Environment 


Low-Overhead Libraries (7 - 15K) 


/ Clear, Concise Documentation 

¢ Warns on “Out-of-Memory” Conditions 

/ Seamless Integration, Flexible & Simple 

/ 4 Bytes Overhead per Buffer 

~¥ Configure Any Project in Less Than 15 Minutes! 

“ Turbocharged with Assembly Language 

/ Use with VROOMM, Overlays, Windowing Packages 


= MEMCHECK 


“Excellent — one of the more remarkable 
debugging tools I've used” — Steve Boymel, 
Reality Technologies 
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“Worth every penny! I ordered your 
product, found the bug, and made my 
deadline. Without coe as ai I never 
| dit”—G ith 


_ SETTING STANDARDS IN SOFTWARE 
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MIX Power C, Version 2.0.1 
MIX Software 

1132 Commerce Drive 
Richardson, TX 7508] 
800-333-0330 

$19.95 


Phar Lap 386! DOS-Extender SDK 
Version 3.0 

Phar Lap Software 

60 Aberdeen Avenue 

Cambridge, MA 02138 
617-661-1510 

$495 


Rational Systems Oxygen, Version 1.1a 
Rational Systems 

220 North Main Street 

Natick, MA 01760 

508-653-6006 

$199 
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tkernel that allows their compiler to run 
in protected mode. This makes it pos- 
sible to compile much larger source files 
without running out of memory on ma- 
chines with extended memory. I tried 
using this for the compile time tests but 
it didn’t speed up compilation, so the 
results reported here are for the real- 
mode compiler. 

JPI TopSpeed C 3.0 JPI TopSpeed is 
a multilanguage development environ- 
ment that supports C, C++, Modula-2, and 
Pascal. Any or all of these languages can 
be used from a single environment to de- 
velop applications. For this article, how- 
ever, I used the command-line version of 
their C compiler. The TopSpeed package 
also includes a source-level debugger, a 
linker, and a profiler. 

TopSpeed doesn’t include a standard 
make facility but does support a project 
facility for building programs ‘with mul- 
tiple modules. Actually, the TopSpeed 
project system is much more powerful 
than Unix-style make facilities. It includes 
a macro language with conditionals and 
a very flexible method for adding lan- 
guage processors. It also keeps track of 
the options used to compile source files 
and will recompile a file when the op- 
tions that affect it change. 

TopSpeed C also compiled XScheme 
without a problem. 

Zortech C++ 2.1 Zortech C++ 
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partner for Microsoft C. Instant-C 
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Microsoft, Copia, Faircom, 
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— Michael Brooks, Enereaic, Inc. 


Instant-C is ultra-fast. For example, 
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program, Instant-C recompiles and 
relinks just the change. In fact, 
Instant-C can rebuild a 100,000 line 
program after a small change in less 
than two seconds. 
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— Duane Burris, Mardian, Inc. 


The Instant-C Environment: 
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¢ Multiple virtual or real screens 
¢ Powerful source-level debugging 
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¢ Compatibility with assembly 
language object modules 
¢ [Immediate evaluation of all C 
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Compatibility with Microsoft C 
compiler 5.1 and 6.0 
Interactive execution of functions 
Works with your favorite editor 
Allows use of Microsoft run-time 
libraries 
Dynamic cross-referencing and 
browsing 
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N2J 2W9 


To order, call MKS at 1-800-265-2797 (continental U.S. only) or (519) 884-2251; fax (519) 884-8861 





MKS and MKS LEX & YACC are trademarks of Mortice Kern Systems, Inc. UNIX is a trademark of AT & T. Printed in Canada. 


CIRCLE NO. 168 ON READER SERVICE CARD 


a 


ee 


ee a 


ee 


& 


een ae 8 





(continued from page 90) 

comes with a compiler, a linker, a li- 
brarian, and a source-level debugger, a$ 
well as various other utilities. It also in- 
cludes an integrated development en- 
vironment. One advantage of Zortech 
C++ is its availability for a large num- 
ber of platforms. In addition to the DOS 
compiler, Zortech produces OS/2, Unix, 
and Macintosh compilers. This could 
make cross-platform development much 
easier. Zortech C++ also supports de- 
veloping applications for Windows 3.0 
using the Microsoft Windows SDK. 

Zortech C++ provides a protected- 
mode version of its compiler that allows 
the compilation of very large source 
files. I tried using this version in the 
compilation tests, but because it didn’t 
improve compilation times, I’ve report- 
ed the real-mode compiler results here. 

Finally, I should mention that even 
though this is a C++ compiler, I only 
tested its ANSI C features. 

MIX Power C 2.0.1 MIX Power C 
includes a compiler and a linker. A 
source-level debugger and a profiler are 
available as a separate package. It 
doesn’t include a standard make pro- 
gram but does support a simple project 
facility for building programs with mul- 
tiple modules. Unfortunately, I couldn’t 
compile XScheme because Power C 
can’t handle nested calls to the same 
macro. For instance, the following pair 
of macro definitions won't work: 


((x)->n_car) 
car(car(x)) 


#define car(x) 
#define fooCx) 


I was able to compile the CTest pro- 
gram and I’ve included those results. I 
should note that Power C is a very 
inexpensive package and perhaps 
shouldn’t be compared directly with 
these higher-priced compilers. 


Conclusion 

Be mindful when comparing the execu- 
tion performance of the protected-mode 
compilers with the real-mode compil- 
ers. The environments in which they 
run are considerably different. Also, their 
integer performance will vary because 
the protected-mode compilers use 32- 
bit integers and the real-mode compil- 
ers use 16-bit integers. Finally, an obvi- 
ous advantage to running in protected 
mode is having access to much larger 
amounts of memory. These tests do not 
show that difference but you should 
keep it in mind when deciding whether 
to use a protected-mode compiler. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 8. 
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Listing One 


(define (bench expr) 
(let ((gce-start. (gc) ) 
(start (time) )) 
(eval expr) 
(let ((end (time) ) 

(gc-end (gc)) ) 

(write expr) 

(display ", elapsed time: ") 
(write (difftime end start) ) 
(display ", gc calls: ") 
(wri (- (car gc-end) (car gc-start) 1)) 
(display ", memory: ") 
(write (list-ref gc-end 5)) 
(newline) ) )) 


(define (fib n) 
(¢ond ((s.n-0) 0) 
({= 2) 1) 
(else (+ (fib (- nl 
(fib (- n 2 


(bench ' (fib 25)) 
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extenders from Rational Systems, 
Phar Lap, and Ergo for applications 
as large as available memory. In 
addition, HALO Professional 
supports off-screen bit-maps as large 
as 32Mb using any combination of 
internal memory, EMS, and disk 
space. 
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I seem to be missing the system 
header file <sgtty.h>. Can someone 
send me a copy? 


You cannot just pick up a copy of 
someone else’s header file and 
expect it to work because the 
definitions within header files are 
frequently system-dependent. 
Contact your vendor. 


Copyright © 1991 Steve Summit 


POWERFUL FEATURES AND UTILITIES 
In addition to the dozens of supplied 
fonts, font editors are included to 
create your own. And the supplied 
screen generator writes code as you 
draw the screen with our paint 
program interface. 


PRODUCES BETTER QUALITY OUTPUT 
HALO Professional gives you 
more control over hard copy. 
Only HALO Professional offers you: 
image scaling to any size, complete 
control over color mapping, portrait 
or landscape orientation, print to file, 
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SUPPORTS YOUR COMPILER 
HALO Professional is available in 
versions for Ada, Assembler, BASIC, 
C, FORTRAN, and Pascal. 
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fter purchasing a fax card, 

I needed a way to print the 

images On my laser printer. 

Because the printer was on 

another machine across the 

network, I couldn’t use the Fax 
card’s built-in software. 

The resolution of fax images is about 


Scaling and Printing 





Kaxes Faster 


Some C code, a bit of assembler, and 


a couple of tricks 


Greg Pickles 


group from the original image and map 
it to a 3 x3 pixel group in the scaled 
image (see Figure 1). The quality of fax 
images as received is poor enough that 
such a straightforward algorithm is per- 
fectly adequate. 

Because the scaling ratio is not inte- 


gral, there is room for artistic license in 
mapping 2 x 2 groups to 3 x3 groups. 
Figure 1 shows the mapping I used. 
I prefer a bolder look for ease of read- 
ing, this mapping favors black pixels. 
You can easily change this to one you 

(continued on page 97) 


200 x 100 dots per inch (dpi) in stan- 


Output — Input 
dard mode, and 200 x 200 in fine mode. Group Group 
My fax board stores all images at 200 — 
x 200 — if necessary, duplicating each ( 000 0100 
horizontal line (for standard resolution 000 


images). So, in order to print images at _ 
full size using the 300 x 300 dpi resolu- 
tion of my Laser printer, the images must 
be scaled at a 2:3 ratio. 


110 
110 


000 
I first tried printing the images in : 

Postscript mode, using the Postscript im- : 011 

age scaling operator. This worked, but it 011 


took more than five minutes per page. I 000 
then decided to use the PCL4 printer lan- 
guage native to HP's LaserjetII (and em- 
ulated by my printer). PCL4 doesn’t sup- 


111 
111 


port general scaling of raster images a8 
(there are fixed ratios of 1:2, 1:3, and 000 
1:4), so I had to do this part myself. I : | | 110 
wrote the scaling routine in assembler, 110 
the bulk of the program. in C, and, after 

a couple of optimization tricks, I can now : 110 
print many fax pages in about a minute. 0 


110 
Scaling Algorithm 

My scaling technique is conceptually 
very simple: Take every 2 x 2 pixel 


011 
111 
110 





Greg's 22 years of computer experience : 111 
ranges from applications programming to 111 
embedded systems design. Currently he is ie 
developing custom PC applications as a 
consultant, and he can be reached by fax 
| at Elegant Technology Associates, 206-747- 
| 9447, or on CompuServe 70303,2435. 





Figure 1: Mapping from input groups to output groups. Input code numbers are 
given in binary and hex and are used to access the mapping table. Output data 
is the three 35-bit groups that appear in successive words in the mapping table. 
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FIRST IMPRESSIONS LAST. 


INSTALL 3.0 GIVES YOUR SOFTWARE PRODUCT 





Installation procedures that rely on 
batch files and DOS commands not 
only look amateurish but also have 
limited error handling capabilities. 
Today’s users expect quality and ease 
of use from software — beginning the 
moment they open the package. A 
smooth, professional installation 
makes an important first impression. 


EVERYTHING YOU NEED 
INSTALL 3.0 is customized for your 
product with an ASCII text file called 
a “script file.” INSTALL 3.0 comes 
with many sample script files that you 
can modify and use immediately. No 
programming is necessary to create 
most installations. However, C source 
code is included for your convenience 
and technical support is free. 


FAST AND SIMPLE 

Use INSTALL 3.0 to create an elegant 
installation procedure that will 
increase users’ confidence in your 
product. INSTALL 3.0 takes advan- 
tage of available RAM for lightning- 
fast file transfers. All your documen- 
tation has to tell users is TYPE 

“A: INSTALL”. 


INSTALL PRO 


e Builds distribution disk sets 
automatically 


e Creates a configuration file, 


containing all parameters for 
each disk set 


e Automatically builds INSTALL 
script files 


e Automatically formats disks 
(360K, 720K, 1.2M, 1.44M) 


e Uses a full screen, point-and- 
shoot interface for fast, efficient 
file tagging 


e Automatically splits large files 
across multiple diskettes 


e Literally cuts distribution disk 
building time from days to 
minutes for complex products 
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(continued from page 94) 
prefer. Each input group has a code 
based on the four pixels it contains (thé 
top two pixels are bits 0 and 1, the bot- 
tom two are bits 2 and 3). 

PCX and PCL4 represent mono- 
chrome raster image data in a similar 
manner. A raster line is stored as a se- 
ries of bytes each representing eight pix- 
els on a raster line. The high-order bit 
in a byte corresponds to the left-most 
pixel. One major difference is that PCX 
files represent a white pixel by 1 and 
PCL4 represents it by 0. 

Figure 2 shows how two input data 
bytes from adjacent raster lines are di- 
vided into four input group codes. The 
scale ratio dictated dealing with the out- 
put data in groups of three bits. Because 
an integral number of these groups does 
not fit in a byte, I had to cover the cas- 
es where a group spans a byte bound- 
ary. My scaling routine handles this 
problem by accessing output data in 
words, and by using word addresses on 
both odd- and even-byte boundaries, 
which would place the current output 
group entirely within a word. 

Figure 3 shows how eight output 
groups correspond to bytes of output 
data. For groups 0,through 4 the data is 
accessed as word 0. For groups 5 
through 7 it is accessed as word 1. The 
ninth group is treated exactly like the 
first, the tenth like the second, and so 
forth. 

The mapping from 2 x2 to 3x3 
groups is done with a translation table. 
Each table entry consists of four words; 
the first three words are data for the 
rows of the output group, the fourth 
word is a dummy placeholder so that 


eee 










Figure 3: Eight output groups map evenly i 


a simple shift instruction can derive 
table offsets. Figure 1 lists the output 
data for each kind of group. Figure 3 
shows 3 bytes of output data. Note that, 
due to Intel byte-ordering conventions, 
the bytes get swapped when accessed 
as a word. 

The 3 bits of output data are stored in 
bits 8 through 10 of the words in the 
mapping table. For each output group, 
these 3 bits are shifted by an appropri- 
ate amount to position them properly be- 
fore ORing them into the output. In my 
routine, the shifting is always performed 
by a ROtate Left (ROL) instruction. 

The rotations for output groups 0 
through 7, respectively, are as follows: 
13,10,7,4,1,6,3, and 0. The rotation val- 
ue starts at 13 and decreases by 3 for 
each group until 1 has been reached. 
These values correspond to output 
groups 0 through 4 shown in Figure 3. 
After a rotation of 1 is used, the output 
address must be incremented and the 
rotation count set to 6 to process the 
groups in the next word (which over- 
laps the previous word by 1 byte). Af- 
ter the step with a rotation count of 0, 
the whole process starts over. 


Scaling Function 

Because the scaling requires a lot of bit 
manipulation, I wrote the key routine 
in assembly language (Listing One, page 
136). It is written for MASM 5.1 and us- 
es MASM’s high-level language support. 
The C-callable function takes four pa- 
rameters: a far pointer to two raster lines 
of input, a far pointer to a buffer to re- 
ceive the scaled output, the number of 
bytes in each input line, and a flag in- 
dicating whether to invert the data or 


+e ee 


Figure 2: Two bits are taken from bytes in. adjacent rows on input data to form 
the input group code number used to access the mapping table. , 








nto bytes. The data is accessed by 


one of two words so that the group being added to the output is always complete- 


ly within a word. 
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not. The second line of input data is ex- 


pected to immediately follow the first, 


in memory. Likewise, the output data 
lines will be created in consecutive 
memory locations. 

First Scale2to3 sets the outer loop 
count to the number of bytes in an in- 
put line and computes the number of 
bytes in an output line. The output line 
size is saved in DX for use in accessing 
the three lines in the output buffer. 

Next the function computes the size 
of the output buffer and fills it with Os. 
The code assumes that the buffer will 
be word-aligned and the caller must en- 
sure that it is. Most variables in C end 
up word-aligned anyway. (in Microsoft 
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#if PROTOTYPES 


double sqrt cdouble); 


#else 
double sqrt (); 
#endif 


main () 


{ printf ¢ "sqrtca) 


C, dynamic memory allocation will al- 
ways be word-aligned.) 

At the label $2315, DS:SI is loaded 
with the segment:offset of the mapping 
table. CL is loaded with the initial ro- 
tate amount. Label S23_30 starts the out- 
er loop that processes bytes of input da- 
ta. A byte from the first line is loaded 
into AH and from the second line into 
AL. If the inversion parameter is set, the 
data in AX is negated. . 

Label S23_40 starts the inner loop that 
processes the four input groups con- 
tained in AX. Every time the routine 
comes to $23 _40, the bits to use for the 
input group code are the high bits in 
AH and AL. The next seven instructions 


presents 


Unt © Bug #747 


%s\n" , sqrtca) ); } 


It looks like the programmer is being careful with his prototyping, allowing 
his compiler to check his calls if it supports prototypes and allowing for the 
occasional compiler that doesn't. But, what’s wrong? When does this fail? 


Call if you need a hint. 


PC-lint will catch this and many other 
C bugs. Unlike your compiler, PC-lint 
looks across all modules of your appli- 
cation for bugs and inconsistencies. 


More than 270 error messages. More 
than 90 options for complete cus- 
tomization. Suppress error messages, 
locally or globally, by symbol name, by 
message number, by filename, etc. 
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already know how to use PC-lint. Check 

- for portability problems. Alter size of 

- scalars. Adjust format of error mes- 
sages. Automatically generate ANSI 
prototypes for your K&R functions. 


Attn: Power users with huge programs. 


PC-lint 386 uses DOS Extender 
Technology to access the full storage 
and flat model speed of your 386. 


PC-lint 386 — $239 
PC-lint DOS or OS/2 — $139 


Mainframe & Mini Programmers 


FlexeLint in shrouded source 
form, is available for Unix, OS-9, 
VAX/VMS, QNX, IBM VM/MVS, 
etc. Requires only K&R C to com- 
pile but supports ANSI. Pricing 
starts at $798. Call for details. 
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PC-lint and FlexeLint are trademarks of Gimpel Software 


isolate these bits and convert them in- 
to an input group number in AX. In the 
process, the input data is saved on the 
stack so that it will be available the next 
time around the inner loop. The group 
number is then shifted left three to get 
an offset into the mapping table. Hav- 
ing the offset into the table, it is merely 
a matter of loading three words, rotat- 
ing them as necessary, and ORing them 
into the output buffer at the correct ad- 
dress. 


Having a fast 
scaling function was 
only half the battle 


At the bottom of the inner loop, the 
bookkeeping to manage the rotate count 
and output address is done. If CL is 
above 1, 3 is subtracted from it. If CL is 
equal to 1 it is set to 6 and the output 
address is incremented. This is the point 
at which access to the output data 
switches from one word address to the 
subsequent word. If CL is 0, it is set to 
16 and the output address is incre- 
mented twice. The new values loaded 
into CL are 3 more than actually need- 
ed because 3 will be subtracted at label 
$23_ 60. 

After the inner loop has been tra- 
versed four times, the outer loop count 
is decremented and the input data point- 
er is incremented. This continues until 
all of the input data has been processed. 


Putting it to Use 

Having a fast function to perform the 
scaling was only half the battle; I need- 
ed an efficient program to use it that 
wouldn’t destroy all my hard-won 
speed. Listings Two (page 136) and 
Three (page 138) present the C code 
for a program that reads a PCX file, ap- 
plies the 2:3 scaling, and outputs PCL4 
commands for a printer. To improve 
performance, I used buffered I/O. C 
provides buffered I/O but for some rea- 
son (using MSC 5.1), output characters 
would-on occasion disappear. 

Rather than fix the problem, I wrote 
my own I/O routines. These are not 
shown in the printed listings here, but 
are provided in the electronic version 


of the listings (see “Availability,” page © 


3). Five functions provide the needed 
operations, using DOS “handle I/O.” 
GetBufCh() returns the next byte from 


a file, reading data into the buffer as — 


needed. (PCX files must be processed 
1 byte at a time, so this is all that’s need- 


ed.) Output, however, is usually per- 


Dr. Dobb’s Journal, August 1991 


- . ecite ny pagent natange ee ne 


FBT 


PES ~~ 


ee ey ly OR ee DS 


Introducing software 
testing the easy way! 


Why every developer needs Ghost — 
the exciting new tool for 
testing DOS software automatically! 


F YOU WANT TO 
GET the bugs out of 
your software and 
keep them out, Ghost 
is just what you’re looking for! It’s a 
breakthrough product that finally 
makes it practical for developers and 


testers like you to do extensive, | 


repetitive regression testing 
throughout the entire development 
cycle — all automatically! 
That’s right. At last there’s an 
easy way to end the testing 
nightmare that’s been driving 
you crazy. No matter what 
language you program in, 
Ghost can help you deliver v2 
high-quality, reliable 
software without the 
hassle. We guarantee it! 
Ghost makes exact recordings 
of your software test sequences and’ 
screen displays, so you can rerun 
them and compare the results auto- 
matically whenever needed. Ghost 
will: 
¢ Document program errors au- 
tomatically. 

¢ Make testing grow more complete 
Over time. : 

¢ Shorten the critical integration 
and testing phase of develop- 
ment. 

¢ Lessen the chance of that “last- 
minute fatal bug.” 

¢ Make regression testing for new 
releases a practical reality. 


) this will speed up your 
4 debugging and testing 
cycles! 

( 
\ 


Meet Ghost Jr. 
Ghost Jr. is a limited-capability ver- 
sion of Ghost that ptovides full 
keyboard and screen recording, but 
has no playback capability. This 
low-priced version makes it practical 
to give copies to 
«| . =7p everyone who tests 
LW PY your product — even 
end users. All the 
y : problems they en- 
counter will be docu- 
mented by Ghost 
scripts. Think of how 


4 The price 
is right and you 

don’t risk a thing! 
Ghost costs just $195 and comes 
with a 90-day money-back guar- 
antee. Ghost Jr. costs just $79 and 
steep quantity discounts are avail- 
able. Don’t miss this chance to end 
the tedium of software testing. Pick 
up the phone and order right now! 





Ghost | 
at a glance. 
Ghost provides you with a way of 
making exact recordings of’ your 
software test sequences and screen dis- 
plays in a machine readable form. 
° . 

You can then re-execute any set of 
tests at high speed without the man- 
ual labor that’s normally required. 


% 
You can interactively view all the dif- 
ferences found in the screen displays 
between the two runs, or have them 
printed out in a handy report. 

& 

Requires no program changes 
or special hardware! 


€ Uses only 16K of memory! ey 


MONEY-BACK 
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If you're dissatisfied with 
Ghost or Ghost Jr. for any 


reason, return them within 
90 days of purchase for a 
prompt, friendly, no-ques- 
tions-asked refund. 


TO ORDER 
(800) 848-1248 
Fax: (802) 848-3502 
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PROGRAMMER'S WORKBENCH 


(continued from page 98) 

formed on blocks of data (an entire 
raster line, for example). BufWrite( J 
copies blocks of data into the output 
buffer until it fills up; then BufFlush() 
writes out the buffer. FileOpen() and 
FileClose(_) complete the function set. 


Reading PCX Files 

Listings Two and Three give the source 
code for the PCX and Laserjet related 
parts of the program. The header file in 
Listing Two declares a structure that 
passes options and control information 
from main( ) to PCXToHP( ) and a 
structure for reading the PCX file head- 
er. The PCX file reading functions are 


loosely based on Kent Quirk’s PCX-to- 
Postscript program (DDjJ, August 1989) 
so I won't discuss them in detail. 

The main() routine, after some ini- 
tialization and option parsing, opens the 
output file. The output file/device name 
can be specified on the command line 
or by an environment variable named 
PCXHP. If neither is present, the pro- 
gram defaults to PRN. 

In monochrome PCX file format, a bit 
value of 1 means a white pixel, and 0 
means black —the opposite of how 
PCL4 interprets things. Consequently the 
OPTIONS structure is initialized with in- 
version enabled to get a normal (black 
on white) printed page. 





if (enviro 
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C compiler for UNIX 
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¢ Source code compatible 
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e Many compiler 
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technologies, fast chips, and 
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precision, performance, and 
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PcxReadLines(_) reads input data and 
processes it to form a requested num- 
ber of raster lines. If it runs out of data 
at the beginning of the first line, it re- 
turns FALSE to indicate the end of in- 
put data. If it runs out of data after the 
beginning of the first line, it fills the re- 
mainder of the requested lines with 1 
bit, making all lines past the end of the 
PCX data white. 


The mapping of — 
2X 2 input groups to 
3X 3 output groups 
is done with a 
translation table 


Some programs generate a PCX file 
with more bytes of data in a raster line 
than are actually required for the num- 
ber of pixels. The Windows Paintbrush 
program is a notable example, filling 
any bits and/or bytes beyond the end 
of the raster image with Os which, if in- 
terpreted as image data, print as black. 
PcxkeadLines( ) sets any bits beyond 
the end of the image data to 1 so that 
they will print as white. Three members 
of the OPTIONS structure allow Pcx- 
kReadLines( ) to deal with extra bits ef- 
ficiently. sEndAdjust is set to the num- 
ber of bytes at the end of a raster line 
requiring adjustment. sAdjOffset is set 
to the offset of the first byte needing 
adjustment. ucMask has bits set which 
are ORed into the first adjusted byte to 
accommodate images ending in the mid- 
dle of a byte. 


Optimizing Output 
A fax image for a letter-size page scaled 
for a laser printer contains over one mil- 
lion bytes of data. Just transferring the 
data to my printer (using COPY /B in 
DOS) took over 3.5 minutes. Data sent 
can be reduced if the printer under- 
stands some form of data compression. 
Unlike PCL5, PCL4 does not support 
compressed data, so I had to do some- 
thing else. 3 

In PCL4, raster graphics are printed 
on a page by “painting” the black dots; 
there is no need to print the white ones 
(all dots are white by default). Because 
a typical fax image consists of a lot of 
white space, PCXToHP( ) exploits this 
to reduce the amount of data sent to 
the printer. By skipping the bytes that 
are blank at the beginning and end of 
a line (and by skipping blank lines en- 
tirely), PCXToHP() may have to send 
less than 20 percent of the original da- 
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ta. (The savings, of course, depend 


strongly on the contents of the image.) 


Another optimization that is not im- 
plemented here is the search for runs 
of all white bytes within a line and skip 
them if they are longer than about 20 
bytes (the number of bytes required by 
the additional cursor positioning com- 
mands). 

To print raster graphics using PCL4, 
the program positions the print cursor 
and then issues a start raster graphics, 
which sets the left margin (X position) 
at the current location. Each raster line 
moves the print cursor one dot down 
the page (Y position) but keeps the 
same left margin. Consecutive lines at 
the same X position need only be sent 
to the printer one after the other; the Y 
position for each line is automatically 
adjusted. White space can be skipped 
with a Y positioning command. When- 
ever the X position changes, a full X-Y 
position command must be sent, along 
with a start graphics. 

The first part of PCXTOHP( ) opens 
the PCX file, reads its header, and ver- 
ifies that it is a monochrome file. It then 
determines if there are any bits at the 
end of each raster line that must be 
masked because they are not part of the 
image, and sets the members of the OP- 
TIONS structure appropriately. Next it 
computes the number of bytes in a scaled 
line and allocates a buffer to hold three 
of them. Then it outputs a command to 
set graphics resolution to 300 dpi. 

The key variables are iCurx, iCurY, 
iNewX, and iNewY. iCurX and iCurY 
hold the position at which the next 
graphics data will be printed if no po- 
sitioning commands are issued. They 
are initialized to —1 to insure that an X- 
Y positioning command is sent before 
the first line of data. iNewX and iNewY 
are set to the position at which the next 
graphics data must be printed. They are 
initialized at the X-Y position specified 
by the OPTIONS structure for the ‘im- 
age. If iCurX and iCurY do not equal 
iNewX and iNewY, a full X-Y position- 
ing command is required. 

The outer loop reads through the in- 
put data two lines at a time, scales it to 
three lines of output data, determines 
when it is appropriate to skip data be- 
cause it is blank, and outputs the data 
with appropriate positioning commands. 
The loop continues until all lines in the 
image are printed or it comes to the end 
of the PCX file. 

The inner loop deals with each of the 
three output lines. IndexNEC( ) is a func- 
tion returning the index of the first byte 
in a buffer not equaling a value, or —1 
if all bytes in the buffer equal the val- 
ue. It is used here to find the index 
(stored in iFront) of the first nonzero 
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byte in a line. If all bytes are 0, nothing 
happens except that iNewY is incre- 
mented. If there is something to print, 
iFront is used to compute the value of 


iNewX for the line. 


CntREQ( ) is a function that counts 
the number of bytes equal to a value 
working backwards (decrementing) 
from an address. It is used here to de- 
termine the number of bytes (stored in 
iBack) of 0 at the end of the line. 

Based on the values of iCurx, iCurY, 
iNewX, and iNewY a positioning com- 
mand is sent, if necessary. A start graph- 
ics command is then sent, followed by 
the graphics data. iFront is used to com- 
pute the address of the first byte of 


graphics data to be output and iFront 
and iBack are used to compute the ac- 
tual number of bytes to send. The 
graphics data is followed by an end 
graphics command. Then, a form feed 
causes the page to be printed. 

With PCXHP, I am now happily print- 
ing faxes on my laser printer in a rea- 
sonable amount of time. 


DDJ 
(Listings begin on page 136.) 
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SOURCE CODE GENERATOR 


Listing One (Text begins on page 28.) 


oe e 
/* File "new.h" */ 


#ifndef lint 
static char *new_h_rcsid = 
"$Header: new.h,v 1.5 91/03/29 19:23:08 vogel Exp $"; 


static char *new_h_source = 
"SSource: /d/cdc/vogel/source/new/RCS/new.h,v $"; 


ftendif 

#include <stdio.h> : 
#define YES 1 

#define NO 0 

/* Error codes. */ 

#define OK 0 

#define EMALLOC 1 


/* Set directory holding templates, and prefix of each template file: 
#define DIRECTORY  "/d/cdc/vogel/source/new/" 
#define PREFIX "template." 


/* Set up the options structure. */ 
struct options_data 


{ 


char *tfiles; 


/* NULL-terminated array of C files * to be created. */ 
char *template; /* Full name of the desired template file. */ 
char exten[5]; /* Extension of the program to be created. */ 
int edit; /* True if the created program is to be edited. */ 
int help; /* True if help is needed. */ 


he 2 


typedef struct options_data OPTIONS; 


End Listing One 
Listing Two 


/* Pile "macro.h" */ 


#ifndef lint 
static char *macro_h_rcsid = 
"SHeader: macro.h,v 1.2 9%/03/15 16:56:28 vogel Exp $"; 


static char *macro_h_source = 
"SSource: /d/cdc/vogel/source/new/RCS/macro.h,v $"; 


fendif 
#define BUFFER 512 


struct macro_data 
{ 
char args [BUFFER]; /* Arguments for the function: full declarations 
* separated by semicolons and newlines. Replaces 
* Sa ina template. ¥*/ ' 
char body [BUFFER]; /* Body of function. Comes under first comment after 
* variable declarations. Includes tabs and newlines. 
* Replaces $b in a template. */ 
/* Extension of the created file, usually ".c". 
* Replaces $e in a template. */ 
char functions[BUFFER]; /* Internal function declarations. Comes just 
* after the start of the function itself. Includes 
* tabs and newlines. Replaces $f in a template. */ 
char globals[BUFFER]; /* External global variables. Comes just before 
* start of function itself. Includes tabs and 
* newlines. Replaces $g in a template. */ 
char  include[BUFFER];/* External include files. Comes just before start 
: * of the function itself. Includes tabs and 
* newlines. Replaces $i in a template. #*/ 
char alist[BUFFER]; /* Short form of the argument list, consisting of 
* just the variable names separated by commas. 
* Replaces $1 in a template. */ 
char name[64]; /* Name of function being created. May or may not 
* be same as filename. Replaces $n in template. */ 
char define[BUFFER]; /* Holds preprocessor #define statements separated 
* by newlines. Replaces $p in a template. */ 
/* Current revision level of created function. 
* Replaces $r in a template. */ 
/* Type of function created, i.e. char * or int. 
* Replaces $t in a template. */ 
char usage([BUFFER]; /* Comes right after the first use of function game, 
and tells you what the function is supposed to 
do. Just above Usage section in intro comments. 
This is the only "smart" macro: won't let you put 
too many words on a line, and starts each line 
* with comment indicator. Replaces $u in template. */ 
char vars(BUFFER]; /* Holds internally~declared variables. Replaces $v 
* in template. */ 


char exten[5]; 





char rev [16]; 


char type[32]; 


x * * * 





char userid[16]; /* Holds author's userid. Replaces $w in template. */ 
char username [BUFFER]; /* Holds author's name.Replaces $x in template.*/ 
char token; /* Holds the character to be used as a token 


* indicator. Shown as a dollar sign in this file. */ 


int year; /* Current year. Replaces $y in a template. */ 
int month; /* Current mohth. Replaces $c in a template. */ 

int day; /* Current day. Replaces $d in a template. */ 

int hour; /* Current hour. Replaces $h in a template. */ 
int minute; /**Current minute. Replaces $m in a template. */ 
ime second; /* Current second. Replaces $s in a template. #*/ 


iy 
typedef struct macro_data MACRO; 


End Listing Two 
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® e 
Listing Three 
/* File "new.c" */ 
#ifndef lint 
static char *new_c_rcsid = 


"SHeader: new.c,v 1.6 91/03/15 16:55:42 vogel Exp $"j; 


static char *new_c_source = 
"S$Source: /d/cdc/vogel/source/new/RCS/new.c,v $"; 


#endif 

#include "new.h" 
#include "macro.h" 
#include <strings.h> 
#include <sys/param.h> 


main (argc, argv) 


int argc; 
char *kAYOV; 
{ 
/* Variables. */ 
MACRO *macros; 
MACRO macbuffer; - 
OPTIONS *options; 
OPTIONS opbuffer; 
char next file [MAXPATHLEN] ; 
int k; 
int status; 


/* Process command line options. If they aren't OK, offer help and exit. */ 
options = &opbuffer; 
status = GetOptions (argc, argv, options); 
if (status == EMALLOC) 
{ 


fprintf (stderr, "Severe memory error -- please call the "); 
fprintf (stderr, "System Administrator.\n"); 
exit (1); 


} 
if (options->help) 
{ 
(void) Help (); 
exit (1); 
} 


/* Set up the substitution macros. */ 
macros = &macbuffer; 
SetMacros (macros) ; 
(void) strcepy (macros->exten, options->exten) ; 


/* Create and optionally edit each file in turn. */ 
for (k = 0; options->files{k]; ++k) 
{ 
(void) strcepy (nextfile, options->files[k]); 
if (CreateCode (macros, options->template, nextfile) == 0) 
if (options->edit) 
EditCode (nextfile); 


exit (0); , 
End Listing Three 


e e 
Listing Four 
/* File "CreateCode.c" */ 
#ifndef lint 
static char *CreateCode_c_rcsid = 


"SHeader: CreateCode.c,v 1.2 91/03/45 16:55:25 vogel Exp $"; 


static char *CreateCode_c_source = 
"SSource: /d/cdc/vogel/source/new/RCS/CreateCode.c,v $"; 


#endif 


™ 
* 


NAME: 
CreateCode 


SYNOPSIS: 
#include "macro.h" 


int CreateCode (macros, template, nextfile) 
MACRO * macros; 
char * template; 
char * nextfile; 


DESCRIPTION: 
Accepts the substitution structure, the input file, and the new C 
file to be created. Reads the template file, fills it in with the 
contents of the substitution structure, and writes the results to 
the new C file. 


A function value of 0 is returned if everything is OK. 
A function value of 1 is returned if the template could not be read. 
A function value of 2 is returned if the output could not be written. 


ARGUMENTS: 
"macros" is the structure holding the macro substitution values. 
"template" is the name of the input template file. 
"nextfile" is the name of the next output file. 


AUTHOR: 
Karl Vogel 
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"$Header: EditCode.c;v 1.2 Be a 16:55:28 vogel Exp $"; 


-* BUGS: 
* None noticed. static. char *EditCode cc source = 
* , . "SSource: jdeae Fosgel feeuiren new) BCS TRaietode. C,Vv $"j 
% REVISIONS: . 
* #endif 
* SLog: CreateCode.c,v $ 
* Revision 1.2 91/03/15 16:55:25 vogel #include <stdio.h> 
* 1, Ran indent on the code and reformatted the comment header. 
* : int EditCode (nextfile) 
* Revision 1.1 90/07/03 11:59:45 vogel char *nextfile; 
* Initial revision { 
* ® 
*/ . /* Functions. */ 
char *getenv (); 
#include "macro.h" . ‘ 
#include <stdio.h> /* Variables. #*/ 
#include <strings.h> char *editor; 
#include <sys/file.h> ; char cmd {BUFSIZ] ; 
int status; 
#define SMALLBUF 20 
/* Create and execute the-edit command. */ 
int CreateCode (macros, template, nextfile) ; if (editor = getenv ("EDITOR") ) 
MACRO *MAaCros; (void) strcepy (cmd, editor); 
char *template; : else 
char *nextfile; a (void) strepy (cmd, "vi"); 
{ (void) strcat (cmd, ""); 
(void) strcat (cmd,.nextfile); 
'/* Variables. */ , (void) system (cmd); 
- return (0); 
FILE *in; , } 
FILE *out; 
e e @ 
Gay tees | End Listing Five 
char *dot; : : 
char last [SMALLBUF] ; ese ° 
char prompt [SMALLBUF } ; Listing Six 
int length; 
int status; /* File "GetOptions.c" */ 
/* If filename already has default extension specified in MACRO structure, zap #ifndef lint 
* it so we can store the function name in the MACRO structure. */ static char *GetOptions_c_rcsid = 
status = 0; "SHeader: GetOptions.c,v 1.4 91/03/15 16:55:31 vogel Exp $"; 
in = (FILE *) NULL; 
out = (FILE *) NULL; static char *GetOptions_c_source = 
"SSource: /d/cdc/vogel/source/new/RCS/GetOptions.c,v $"; 
last[0] = '.'; 
last({1] = '\0'; #endif . 
(void) streat (last, macros->exten) ; . 
length = strlen (last); #include "new. h" 
#include <strings.h> 
if (dot = rindex (nextfile, '.')) ; : 
if (stroemp (dot, at == 0) (continued on page 104) 
*dot = '\0'; 
if (base = rindex (nextfile, '/')) 
base++; 
else 


base = nextfile; 


(void) strcpy (macros->name, base) ; I [ Om C 
(void) strceat (nextfile, last); 
/* Tf output file already exists, make sure that user wants to overwrite it. */ tt shining C 


peneree (nextfile, F_OK) == 0) 
: a 7 If you use a C++ translator you'll 
if (prompt{0] != 'y' && prompt[0] != 'Y') 
printf ("\"%$s\" not overwritten.\n", nextfile); sce dramatic benefits from cback. - 
7 es — cback will take your translator 
/* Open the input template file. */ | | output and produce smaller C code 
i ea ce ne that is faster and highly portable. 
Sead UF ego to open template file \"%$s\"\n", template); And the C code you get from cback 
goto done; _ e e : 9 
will shine for another reason. It’s : 
ee Ge 2 oe, aha, Sy a nearly as easy to understand and 
{ printt ies to open C file \"%s\"\n", nextfile); maintain as the C++ you started with. 
ait | cback is available under UNIX™ for 
/* Do the macro substitution, clean up, and return. */ : PCs and workstations. . 
RED S@eNaGr de (in, macros, out); So call to arrange for a free 
if (in) | : | , e oq - . 
ee | demonstration. Available anywhere 


if (out) 
under spacious skies. 


(void) fclose (out); 
End Listing Four NEG lol 
, ; 1b, 4 TM 


printf ("File \"%s\" exists. Overwrite? ", nextfile); 
fflush (stdout); 
fgets (prompt, SMALLBUF, stdin); 


done 


return (status); 


— ‘ NEWCODE TECHNOLOGY LTD. . 
Listing Five : | 200 BOSTON AVENUE. 


#ifndef lint 
static char *FEditCode_c_rcsid = 


617.396.3009 / FAX: 617.395.9452 
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We Have Ways To Improve Your 
Productivity 


TE Developer's Kit = Updated 


Incorporate text editing features into your 
application easily and cost effectively. Features: 
multiple files/windows, word-wrap and printing, edits 
files larger than available memory, reconfigurable . 
keyboard commands and screen colors, undo, cut/paste, 
column block, and search/replace. The kit also 
includes TER small editor routine. TER is a subset 
of TE. Your application calls this routine by 

specifying the window location and size, maximum 
file size, and an input buffer or file. Supports’ 
Microsoft and Borland 'C' compilers. Includes the 
complete source code. (Version: 3.0, DOS: $169, 
Windows: $269) : 


Now also available version 3.5 that incorporates 
additional word processing features such as bold, 
underline, italic, line centering, and printer control. 
(Version 3.5, DOS: $249, Windows: $349) 


WinMem: Windows 3 Memory Manager 


WinMem provides an unlimited amount of 
virtual memory even in Windows' Real and Standard 
modes. It provides an unlimited number of global 
memory handles, and reduces the overhead per block to 
4 bytes (from 24 bytes of Windows). Includes the 
complete source code. ($139) 


Spell Time (NEW) 


Spell Time consists of a dictionary (over 100K 
words) and the routines to access the dictionary. It also 
includes an application specific dictionary, and a user 
dictionary. The routine will suggest alternates for a 
misspelled word. Highly optimized: 50 to 75 words/sec 
on a 12 Mhz 286 computer. Uses virtual memory on 
disk, or EMS. An interface with TE included. Includes 
the complete source code. Supports Microsoft and 
Borland 'C' Compilers. ($369) 


Team: The Programmer's Text Editor 


Edits unlimited size files, unlimited undo/redo, 
multiple windows, on-line spell checker (new), regular 
expression search/replace, editable keystroke macros, 
'C' like macro language, program switching, context 
sensitive help, customizable keyboard commands, menu 
& accelerator keys, frees entire memory for DOS 
commands, supports 132 columns. ($139) 


Sub Systems, Inc. 
1-800-447-6819 


Fax: 1-617-438-0311 
159 Main Street, #8C, Stoneham, MA 02180, (617)-438-8901 
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Listing Six (Listing continued, text begins on page 28.) 


#define SMALL 10 

int GetOptions (argc, argv, options) 

int argc; 

char *RAYQV; 

OPTIONS *options; 

{ 

/* Functions. */ - 
char *malloc (); 


/* Variables. */ 


char *next ; 
char extension{SMALL + 1]; 
int count; 
int flags; 
int k; 
— int status; 
unsigned int length; 


/* Initialize options to defaults. +*/ 
options->files = (char **) NULL; 
options->template = (char *) NULL; 
options->edit = YES; 
options->help = NO; 


(void) strepy (extension, "f"); 


count = 0; 
status = OK; 


/* Handle the flags, and count the files: ¥*/ 
for (k = 1; k < argc; ++k) 
{ 
next = argv[k]; 
if (*next == '-') 
( 
next++; 
if (*next == 'm') 
{ 
(void) strncpy (extension, next + 1, SMALL); — 
extension[SMALL] = '\0'; 
} 
else 
if (regi <= he") 
options->edit = NO; 
else 
{ 
options->help = YES; 
goto done; 
} 
i 
else /* option does not start with a dash */ 
count++; 


} 


/* If no files were specified, set help flag. Otherwise, store filenames. */. 


if (count) 
length = (unsigned) ((count + 1) * (sizeof (char *))); 
if (options->files = (char **) malloc (length) ) 


for (k = 1, count = 0; k < argc; ++k) 


if (*argv[k] != '-') 
options->files[count++] = argv[k]; 
options->files[count] = (char *) NULL; 
else 
{ 
status = EMALLOC; 
goto done; ‘ 


} 

} 

else 

{ 
options->help = YES; 
goto. done; 


} 


/* Set up the file extension. */ 


if (strcmp (extension, "h") == 0) 
options->exten[0] = 'h'; 
else 
options->exten[0] = 'c'; 
options->exten[{1] = '\0'; 


/* Set up the template pathname. */ 
length = (unsigned) (strlen (DIRECTORY) + strlen (PREFIX) + . 
strlen (extension) + 1); 
if (options->template = malloc (length)) 
(void) sprintf (options->template, "%s%s%s", DIRECTORY, 
PREFIX, extension); 








else 
status = -EMALLOC; 
done: 
return (status); 


} 


End Listing Six 
Listing Seven 


/* File "Help.c" */ 
#ifndef lint 


(continued on page 106) 
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A _- C CODE FOR THE PC 


source code, of course 


NEW! Professional IDL (interface generator for complex data; multiple inheritance, ASCII and binary external forms, tools; includes book) . . . . $360 
M+-++ Wins C+-+ math classes; indexing, matrices & vectors, numerics, memory handling, I/O; specify C++ compiler/Turbo, Zortech, Glock.) $395 
C++/Views (C+ -++ interface to MS Windows 3.0; over 60 classes; free broswer (no source); no royalties; Zortech C++ only , « « © . $395 
ZIP Image Processor & Victor Image Library Version 2.0 See contrast, merge images, TIFF/GIF/PCX/bin, HP ScanJet support) . . $290 
Turbo TRX (Release 3.0; HP, PS, dot drivers; CM fonts; LaT&X; MetaFont) ...... 2. ...0.00002. 04 ee een Wigs aie ee, Bn Ak $250 
db_File & db_Retrieve Bundle by Raima (B-tree and network database with SQL query and report writer; multi-user DAS) eo Se A ee $245 
TE Editor Developer’s Kit for Windows (full screen editor, undo command, multiple windows; inc. TER for application build-in; no royalties) $220 

NEW! cpslib Lee generation library for C programs; includes complete graphics, font, rotation & paragraph support. .......2..~. $170 

| Report Right (report writer and graph generator for Windows3.0) ........0.00..00 08 cb ees Oe OS BE a te Bk $170 
C-Index/PC Database Library (fast B+ tree indexing, string/binary/custom keys, multiple record formats/file, 170-page manual) ...... $165 
Rogue Wave tools.h+-+ or math.h+-+ Class Library (extensivedocs) , . 2... 44 2 Ge ee 4 88 Ge ek} ea ee he each $165 
WKS Library Version 2.01 (C program interface to Lotus 1-2-3, dBase, Supercalc 4, Quatro, & vp net le? & eerie? ye we a ao we $155 
Minix Operating System (Version 1.5; Unix-like operating system, includes manual; specify 5.25” or 3.5” diskettes) . 2... . 2.0.2.2. each $150 
Delorie GCC for MS-DOS (Version 1.39; includes C++, assembler & DOS extender; complete source code and makefiles) ........ $150 

NEW! CDB for Windows (database toolkit; ISAM, DDL, relational & network, space reuse, concurrent access; fast, manual, noroyalty). . .... $145 
Vmem/C (virtual memory manager; least-recently used pager; dynamic expansion of swap HIG) <a. eee eww oP ae ae Ae aS Ge $140 
TE Editor Developer’s Kit (full screen editor, undo command, multiple windows)... ........2.2.. ae ee oe ee are “« » « BLED 
C Communications Toolkit by Magna Carta (multi-port & co-processor board support, FAX, interrupt driven, emulations, xfer protocols) . . $125 
C++ Object Library (virtual windows, I/O, lists, file free space management, keyed ISAM file I/O) .........0..0..02.. 084.4 $125 
SilverWare °C” EMM Library (60 interface functions to EMM Version 4.0)... 2. $120 

? WinMem (unlimited global memory handles for Windows 3.0, 4-byte overheadper block rather than 20, virtual memory for 286) ... . . . $110 
Und ated! PC/IP (CMU/MIT TCP/IP for PCs; Clarkson drivers, SOS & SOSS NFS clones, Bdale mailer, PCRoute & PCBrid e, NDIS, ODI, Beholder) . $100 

NEW! Heapman (application memory management for Windows 3.0; 64K bytes of heap space; includes memory Brawee/debuECD 4 oe oe 4 ORE 

NEW! SCM (portable Scheme in C, conforms to IEEE and 3.99 specs, garbage collection off C stack for easy mixing withC).. 2... 0.00, $100 

NEW! CDB for DOS & Unix (database toolkit; ISAM, DDL, relational & network, space reuse, concurrent access; fast, no manual, no royalty). . . $95 
PowerSTOR (Version 1.2; extended heap space on extended memory, expanded memory, and/or hard a By fee SG age ea gh"; a a $95 
MIRACL Multiprecision Integer & Rational Arithmetic C Library (nearly 100 functions; C & C++; from reland) . . <4 4.6 « a se « $90 
Disassembler (8086/80286/80386/80C186 with 80287/80387/80C187 TD de Se eg Ae he ae ak ae ac et ak ala ae, he Ue TH, Re Gg eS A Ae a Bee Go $90 
Booter Toolkit (floppy‘disk bootstrap routines, DOS file system, light-weight multitasking, windows, fast memory management) ..... . $85 
VMA4C (virtual memory manager for C; swaps blocks to disk; small, fast, simple)... . 2.0.0.0... 0008.0. eee, . . $80 
VMEM (virtual memory manager by Blake McBride, Version 3.6, LRU pager, dynamic swap file, image save/restore). .... . Bo. SEG ad 

NEW! Mini IDL (interface generator for complex data; single inheritance, translator & table generator tools, ASCII external form; includes book) . $80 


BGI Printer Driver Toolkit (BGI drivers for Epson 9- & 24-pin, HP LaserJet II, & PaintJet printers) ..... a oe ae ee eee 
COMM-DRYV (interrupt-driven serial communication, device drivers & serial port monitors; source for libraries only; complete source $200) . $75 
NEW! cbase (C database library, sequential & b+-tree random access, buffered block I/O, file-level locking) ..... oir die: te Lette Gee ngs aa 7 


FlexList (doubly-linked lists of arbitrary data with multiple access methods; specify C or C+ Se wi ate sey Oe tees pes Gos .. . . each $65 
Foundations-1 C-+++ Class Library (ASCII record I/O, bit arrays, exception handling, B-tree, persistent objects) . ... . ae vite Bees es = $60 

C-LIN (linear algebra library; 42 vector & matrix functions; matrix inversion & decom osition; system-of-equations solution) ....... $60 

MultiStr (evaluates a string containing multiple ASCII arithmetic expressions with variables) .°. 2. 2... ee ee el $60 

Coder’s Prolog (Version 3.0; inference engine for use with C programs) ........... ak ee a a Om SB Ger ke ee, ea a Te $60 

. FinanC (large collection of financial function including bond, inventory, stock portfolio, & cash flow)... ......0..0.0 80800 4 $55 
NEW! TILE Forth (82-bit Forth-83 in C; lots of extensions including multi-tasking & classes/instances;link in C routines; DOS & Unix) ...... $50 
Pascal P-Code Compiler & Interpreter or Pascal-to-C Translator (Level 0 ISO standard Pascal with some Level 1 features) ...... each $50 

CALC (ASCII algebraic expression evaluator, unlimited parenthesis nesting, symbols, 32 built-in functions, easilyextended) ........ $50 

Backup & Restore Utility by Blake McBride (multiple volumes, file compression & CNCIVDUONY co xe aoe 8 4) eR yc Rl me eee $50 

Floppy TAR (TAR backup and restore on MS-DOS devices; direct access to non-standard MGIC) se ecw a my Bde Be ele eS $50 

C Compiler Pack (5 C compilers; 3 for 8086 (gcc, MicroC, Small C), 2 for 68000 (Sozobon, cc68); gcc ports include library source only) . .. $50 

GNUish MS-DOS (ports of 17 GNU programs to MS-DOS organized by Thorsten Ohl) . 2...) $50 
SuperGrep (exceptionally fast, revolutionary text searching algorithm; also searches sub-directories) . ..... ae ee a ee ee $50 

OBJASM (convert .obj files to .asm files; output is MASM compatible) . 2... 0. ee $50 

CLIPS (rule-based expert system generator, Version 4.3; advanced manuals available at additional COSL) ew id Ue ae Sw Bw i ee 0 

; NIH Class Library & Book (basic C++ classes & Data Abstraction and Object-Oriented Programming in C++ in softback by Keith Gorlen) . $50 
Upgrade! Editor Pack (fourteen public domain editors; inc. microEmacs 3.11, Stevie, Elvis, Moke, mg2a, DTE, Jove, & Origami) .:........ $50 
Kier DateLib (all kinds of date manipulation; translation, validation, formatting, & SHIUNMIOUG) aie at te Ge ae SR a Sc $45 

DES Encryption & Decryption (2500 bits/second on 4.77 MHz PC for on-the-fly encryption at 2400 baud; domestic distribution only)... . $40 

RXC & EGREP Version 2.0 (Regular Expression Compiler and Pattern Matching; finite state machine from regularexpression) ...... $35 

Bison & BYACC (YACC workalike parser generators; documentation; no restrictions on use of BYACC OUD) «6s % ew «RS oe wu $35 

PC-XINU (Comer’s XINU operating system forPC) ...... 1... ee, $35 

Spell Pack te spelling programs, a hyphenator, 2 utility packs and a 60K word list: Ispell, Microsp, Sp, Cspella, Spell, Dawg, Soundex) . . . . $30 

REGX Plus (search and replace string manipulation routines based on regular PAPLESSIONS): 6: 5. eqs) ew es es A OR $30 

GNU Awk & Diff for PC (both programs in one package) . . 2... $30. 

Und ated! Cminch Pack (30 file compression & expansion programs) . . 2... 1. ee ng $30 
Updated! Make Pack (eight versions of Make including dmake 3.7, GNU Make, Cake, and Gymake and a makefile MIGKEN) <4 6 ee 8 ew a $30 
NEW! GNU Ghostscript (Turbo C makefile, MS-DOS executable, Paintjet driver, all FOMIS) os oro BO hg Oe wR ee we es Ace RS 
BigNum (portable and efficient arbitrary-precision arithmetic package; hardcopy docs; from BUAUOG) See S, & fhe Boke gee vee sae p OLS 

String Pack (lots of string routines; C+--+ String class, BAWK, word wrap, fuzzy search, Boyer-Moore, Hypertext, etc.) .......... $25 

NEW! UUPC Pack ee for the PC; UUPC Version 1.10a by Wonderworks and smail/PC Version 2.5 by Stephen C. Trier) . . 2... ...2.~., $25 
PC-MAIL (UUCP mailer by Wietse Z. Venema; send, receive, and manage UUCP mail; from Holland) 2. sg a ee ee ee 8 ek ee Boe 

NEW! Tel (Tool Command Language; add shell programming programming capability to any command line; elegant command line language) . . . $25 
PERL for MS-DOS (C, sed, awk, and shell all rolled into one language; includes HATUCOPY UGGS) sa 6s sk eb ae bows we 4 ee Hw $25 

FLEX Kast lexical analyzer generator; new, improved LEX; BSD Version 2.3.6 withdocs) . 2... 0.0.0... 00 ee ee $25 

; Using C-+--++ Library (the code from the book by Bruce Eckel and then some; Zortech 2. compatibles 2. 6. ew ew we we ee ww we $25 
Updated! XLISP 2.1 (includes Almy improvements)... . . . Sih, Ppa ONG. OMe ates pela ee thy SO Gs GOP Bie ve at cen de eh, oBtoe, ?  d $20 
GNU Chess (GNU Version 3.1 & Windows Version 1.01; executable included; requires SDK to build; truly beautiful!) 2... we. $20 

GNU RCS (FSF’s version of the Revision Control System; like Unix’s SCCS only better; keeps track of software development) ....... $20 

ets (fast, disk-based hash table manager for really large hash tables; clone of Unix OOD), 5. RN Oe a ee es Be Re Ee $20 

ata 

NEW! Moby Thesaurus (25K root words, 1.2M synonyms; requires signed license agreement)... . 2... 1. $350 
-Moby Part-of-Speech (200,000 words and phrases described by prioritized part(s)-of-speech) .............00.4. a oe ee $120 

Moby Words (500,000 words & phrases, 9,000 stars, 15,000 PANGS) 265 wx ae at See cas ge Se Gh oe” Gets gt we ase ew hd a me $80 

NEW! Moby Shakespeare (plays, sonnets, etc. ... everylastword). ...........2..2220202024., sae eel sap UA ae, oe REA Boca tan $60 
Dictionary Word List (234,932 words in alphabeticalorder) . 2... 2... ce Sie Be He, 3h na $60 
IVES Rogers 1010 THESAUIOS <6 n Soat es. og ok ke wk eH HS Meas MR a Ao Ota ce ees ek en $40- 
U.S. Cities (names & longitude/latitude of 32,000 U.S. cities and 6,000 state boundary POLIS) 4g. Gale Sa Oe ey ee ee ee $35 

The World Digitized (100,000 longitude/latitude of world country botndaries) . . «ne 4 ew Hae ee eee eee ee -. . . $30 

Linguistic Experiment Dictionary (73,476 offbeat words with status and part-of-speech) ....... tie) deal Se 5b aE ip ae SE es $30 

The Austin Code Works Voice: (512) 258-0785 

11100 Leafwood Lane : much more ... ask for catalog FAX: (512) 258-1842 

Austin, Texas 78750-38587 USA | -  -mail: info@acw.com 

Free surface shipping for cash in advance For delivery in Texas add 7% MasterCard/VISA 
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e LJ ° . . * 4 " \t " ; 
Listing Seven (Listing continued, lext begins on Pp age 28.) "\t\tYou can create other templates by adding template files to", 
: : "\t\tthe template directory specified in the header file \"new.h\".", 
static char *Help c rcsid = (char *) NULL 
"SHeader: Help.c,v 1.4 91/03/15 16:55:33 vogel Exp $"; : ; iar 
static char *Help c_source = : _ /* Write the help information. */ 
"SSource: /d/cdc/vogel/source/new/RCS/Help.c,v $"; for (k = 0; array[k]; ++k) 
puts (array[k]); 
fendif return (0); 
} 
#include <stdio.h> . ; an 
e e 
~ oe . End Listing Seven 
{ 
e e ¢ 
/* Variables. */ Listing Eight 
int k; 
/* File "OutString.c" */ 
static char *array[{] = : 
t #ifndef lint 
oN static char *OutString_c_rcsid = 
"\tnew:\t\tcreates and optionally edits one or more new C", "$Header: OutString.c,v 1.2 91/03/15 16:55:35 vogel Exp $"; 
"\t\t\tprograms.", 
cn static char *OutString_c_source = 
’ "\t\tUsage:\tnew [-c] [-h] [-mx] file [file ...]", "SSource: /d/cdc/vogel/source/new/RCS/OutString.c,v $"; 
"\t\tWhere:\t\"-c\"\tcreates a new program but does NOT edit it.", #endif : : 
"\t\t\t\"-h\"\tprints a help file. Help is also given if", #include "new.h" 
"\t\t\t\tno arguments at all are given.", #include "macro.h" 
os #include <stdio.h> 
"\t\t\t\"-mx\"\tcreates a program of type 'x', where x is", #include <ctype.h> 
"\t\t\t\tone of the following:", #include <strings.h> 
whe 
"\t\t\t\td - function driver.", int OutString (macros, current, string) 
"\t\t\t\tf - normal function (default).", MACRO *MaCros; 
"\t\t\t\th - header file.", char current; 
"\t\t\t\ti - program to handle simple 1/0.", char *string; 
"\t\t\t\tm - main routine with arguments.", { 
"\t\t\t\to - function to handle command line arguments.", 
"\t\t\t\ts - stub (placeholder) function.", /* Variables. ¥*/ . 
me char *blank; 
"\t\t\t\"£ile\"\tis one or more C files to be created. A", char *S; 
"\t\t\t\tsuffix of \".c\" will be appended if it isn't", char *L; 
"\t\t\t\tthere already.", char temp [BUFFER] ; 
ey 
"\t\t\t\tI£ the file already exists, you will. be asked", int col; 
"\t\t\t\tif you want to overwrite it.", int first; 
oF int length; 
ee . int status; 
"\t\t\"new\" makes extensive use of tenplates to create new C files.", 
"\t\tA template fileshas the name \"template.x\", where’ 'x' is the", /* Do the simple string replacements, and numeric conversion. */ 
"\t\tstring which follows '-m' in the program arguments.", switch (current) 
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case’ 'a': 
(void) 
break; 

case 'b!: 
(void) 
break; 

Gase ‘c': 
(void) 
break; 

case 'd': 
(void) 
break; 

case 'e': 

(void) 

break; 

ig 

(void) 

break; 

case 'g': 
(void) 
break; 

case 'h': 
(void) 
break; 

case 'i': 
break; 

case 'l': 
(void 
break; 

case 'm': 
(void 
break; 

case 'n': 
(void) 
break; 

case 'p': 

id) strepy (string, macros->define) ; 


strcpy (string, macros->args); 
strepy (string, macros->body) ; 
sprintf (string, 


"$2.20", macros->month) ; 


sprintf (string, "%2.2d", macros->day) ; 





strepy (string, macros->exten); 


case 
strepy (string, macros->functions) ; 
strepy (string, macros->globals) ; 


sprintf (string, "%2.2d", macros->hour) ; 


strepy (string, macros->alist); 


— 


sprintf (string, "%2.2d", macros->minute) ; 





strepy (string, macros->name) ; 











id) strepy (string, macros->rev); 


Ld) sprintf (string, "%2.2d", macros->second) ; 


strcepy (string, macros->type) ; 


strepy (string, macros->vars); 





(void) 
break; 

case 'x': 
(void) 
break; 

case 'y': 
(void) 
break; 

default: 
*string = '\0'; 
break; 


strepy (string, macros->userid); 
strepy (string, macros~->username) ; 


sprintf (string, "%2.2d", macros->year) ; 


} 
/* Handle "Usage" string. Write no more than 50 characters/line, indented 
*3 tab spaces in. */ 
if (current == 'u') 
{ 
(void) strcpy (temp, macros->usage) ; 
t = temp; 
*string = '\0'; 
first = YES; 
while (length = strlen (t)) 
{ 
if (!first) 
(void) streat (string, "\n * \t\t\t"); 
first = NO; 
if (length <= 50) , 
{ 
(void) streat (string, t); 
break; 
} 
else 
{ 
blank = (char *) NULL; 
col = 25; 
for (Ss = t; *s && col < 75; 
if (isspace (*s)) 
blank = s; 
if (blank) 


++S, +4+col) 


*blank = '\0'; 
(void) streat (string, t); 
t = blank + 1; 

} 

else 

{ 
(void) strceat (string, t); 
break; 


re] 


(continued on page 108) 


Write better programs by doing less 


GUI_Master (Program Constructor for C++) now available for MS Windows and for OS/2 


If you have to build sophisticated C++ applications for MS Windows or OS/2 
PM you can considerably improve your programming throughput both in 
quantity and in quality by using GUI_Master. This set of tools lessens the 
burden of writing graphical user interface programs so that you, the developer, 
can focus on the application parts 


¢ Generate the GUI parts 
With the Interface Builder you specify the properties of the visual objects of 
your program. The Interface Builder then generates the necessary source 
code, the resource specifications and the make file 


e Reuse existing know-how 
The Class Tree with over 85 classes contains a wide range of GUI building 
blocks. Anything that could be accomplished through "normal" programming 
can be done if you use GUI_Master. It's just a lot easier 

¢ Add functionality 
There are features you didn't use to include in your application because they 
were too complex or time-consuming to program. By using the standard 
GUI_Master classes you can now easily implement things like color dialogs, 
font dialogs and multiple level undo/redo facilities 

e Stay in control 
With the Class Browser you can cross-reference, examine and edit all the code 
of your applications . 

¢ Prerequisites 
To use GUI_Master (Program Constructor for C++) you must have a C++2.x 
compiler and an SDK for the appropriate operating system 

¢ Documentation . . 
Over 1200 pages of detailed, fully indexed class descriptions, method 
reference etc. are included 


¢ Free code a 
Seven functional example programs are supplied with code. They give you a 
head start in building your own Windows or PM programs 


' ¢ Free support 


The first full year support is free for registered users 


e Upgrade from CommonvView or XVT 
Special discount available for cyrrent CommonView or XVT users. Write or 


fax for details 











All product names are registered trademarks of their respective manafucturers 
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Visionaries stuck in traditional companies 
often feel isolated. Today, some of the 
industries brightest minds are right here at 
Microsoft. Which is one reason we’ve 
consistently advanced the world of personal 
computing, and more than a few careers. 


Development Managers 


We’re seeking experienced Development 
Managers for projects that include advanced 
operating systems, intuitive graphical appli- 
cations, the latest compilers, development tools 
and more. As a Development Manager, you 
will grow and lead a team of top software 
design engineers and contribute to the overall 
technical direction of current and future 
products and technologies. You’ll need a 
Bachelor’s degree (MS or PhD preferred) in 
Computer Science or related technical field, a 
strong software development background, and 
5+ years’ experience managing innovative 
software development efforts. 


Software Design Engineers 


We’re offering you a chance to do things 
you can’t do anywhere else. Become involved 
with everything from object-oriented 
methodology, sophisticated graphical 
environments, powerful applications software, 
compilers, networking, multimedia, operating 
systems and more. And, we’re working on 
some truly visionary ideas we can’t even reveal 
yet. You should possess programming expertise 
and a background that includes micro’s, C, 
80X86™ , 68000™ , Macintosh Toolbox®, DSP, 
MIDI, UNIX®/XENIX, MS-DOS or Windows. 
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Listing Eight (Listing continued, text begins on page 28.) 


} 

/* Handle the "include" strings. */ 
if (current == 'i') 
{ 


for (Ss = string, t = macros->include; #t; ++s, ++t) 


return (0); 


End Listing Eight 


e e e 
Listing Nine 

/* File "ReplaceMacros.c" */ 
#ifndef lint 


static char *ReplaceMacros_c_rcsid = 
"SHeader: ReplaceMacros.c,v 1.2 91/03/15 16:55:37 vogel Exp $"; 





static char *ReplaceMacros _c_source = 
"SSource: /d/cdc/vogel/source/new/RCS/ReplaceMacros.c,v $"; 


#endif 


#include "macro.h" 
#include <stdio.h> 
#include <ctype.h> 
#include <strings.h> 


int ReplaceMacros (in, macros, out) 
FILE *in; 

MACRO *MaCcros; 

FILE *Out ; 





/* Variables. */ 
char *S; 
char string [BUFFER] ; 
char current; 
char previous; 








/* Start the main loop which looks ahead one character. */ 
previous = getc (in); 
if (previous == EOF) 
return (0); 


/* Decide what to do if we get a token character. */ 
while ((current = getc (in)) != EOF) 
{ 





if (previous == macros->token) 
if (index ("abcdefghilmnprstuvwxy", current) ) 
{ 


OutString (macros, current, string); 
for (s = string; *s; ++s) 
putc (*s, out); 
previous = getc (in); 
} 
else 
{ 
putc (previous, out); 
previous = current; 
} 
} ‘ 
else 
{ 
putc (previous, out); 
previous = current; 


} 
/* Don't forget to write the last character. */ 


putc (previous, out); 
return (O}; 


End Listing Nine 


e 6 
Listing Ten 
/* File "SetMacros.c" */ 
#ifndef lint 
static char *SetMacros_c_rcsid = 


"SHeader: SetMacros.c,v 1.4 91/03/15 16:55:40 vogel Exp $"; 


static char *SetMacros_c_source = 
"SSource: /d/cdc/vogel/source/new/RCS/SetMacros.c,v $"; 


#endif 

#include "macro.h" 
#include <stdio.h> 
#include <strings.h> 
#include <pwd.h> 
#include <sys/time.h> 


(continued on page 111) 
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SOURCE CODE GENERATOR 


Listing Ten (Listing continued, text begins on page 28.) 


int SetMacros 
MACRO *MACYOS; 


{ 


(macros) 


/* Functions. */ 


char *getenv (); 

struct passwd *getpwuid (); 
/* Variables. */ 

char *S; 

int offset; 

long clock; 

struct passwd *ptr; 

struct tm *now; 


/* Set up the internal C stuff. The "name" entry will be set later. */ 


macros->drgs[0] = '\0'; 
macros->body[0] = '\0'; 
macros->functions[0].= '\0'; 
macros->globals[0] = '\0'; 
macros->alist[0] = '\0'; 
macros->name[0] = '\0'; 
macros->define[0].= '\0'; 
macros->usage[0] = '\0'; 
macros->vars[0] = '\0'; 

(void) strepy (macros->exten, "c"); 
(void) strcepy (macros->rev, "1.1"); 
(void) strcpy (macros->type, “int"); 
(void) 


strcepy (macros->include, 
"#include <stdio.h>\n#include <ctype.h>"); 


/* Set up userid & name of program author. See if we can get information from 
* the environment. If that fails, look it up from userid and passwd file. */ 
macros->userid[0] = '\0'; 
IMacros->username[0] = '\0'; 


if (s = getenv ("USER") ) 
(void) strepy (macros->userid, s); 
if (s = getenv ("USERNAME") ) 
(void) strcpy (macros->username, s); 
if (strlen (macros->userid) == 0 |; strlen (macros->username) == 0) 
if (ptr = getpwuid (getuid ())) 
{ 


(void) strcpy (macros->userid, ptr->pw_name) ; 





if (strncmp (ptr->pw.gecos, "Civ,", 4) == 0) 
offset = 4; 

else 
offset = 0; 


(void) strcepy (macros->username, 
ptr->pw_gecos + offset); 
if (s = index (macros->username, ';')) 


mn 


*S = WN ' 
} 
else 
{ 
(void) strcpy (macros->userid, "unknown"); 
(void) strcpy (macros->username, "unknown") ; 
} 
| | 


/* Set the character which we will recognize as the start of a token. */ 
| macros->token = 'S'; 


/* Set up the current date and time. */ 
(void) time (&clock) ; 
now = localtime (&clock); 
macros->second = now->tm_sec; 
macros->minute = now->tmmin; 
macros->hour = now->tm_hour; 
macros->day = now->tmmday; 
macros->month = now->tmmon + 1; 
macros->year = now->tm_year; 


return (0); 


End Listings 


C Language 


#25 


Under my compiler, the code int i = 7: printf 
("%d\n", i++ * i++); prints 49. Regardless of the order of 
evaluation, shouldn't it print 56? 





The operations implied by the postincrement and 
postdecrement operators ++ and -- are performed at some 
time after the operand’s former values are yielded and before 
the end of the expression, but not necessarily immediately 
after or before other parts of the expression are evaluated. 


Copyright © 1991 Steve Summit 
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LISP-STYLE LIBRARY 


Listing One (Text begins on page 36.) 


/* file LISP.H of 6-Feb-91 / Copyright (C) 1990 by Daniel N. Ozick */ 
/* Lisp-Style Library for C (Main Header File) */ 


/* Constants */ 
/* Array Sizes */ 


#define MAXSTRING 128 /* size of standard character array */ 
#define MAXLINE 256 /* size of text line character array */ 
#define HASH TABLE 211 /* size of HASH TABLE -- should be prime */ 


/* Characters */ 

#define EOS '\0' /* end of string */ 
#define TAB '\t' 

#define NEWLINE '‘\n' 
#define FORMFEED '\f' 
#define SPACE 32 

#define BELL 7 

#define BACKSPACE 8 
#define RETURN 13 
#define LINEFEED 10 
#define ESCAPE 27 
#define DOT '.' 

#define PERIOD '.' 
#define DOS_EOF 26 
#define BACKSLASH '\\' 
#define SINGLE_QUOTE '\'' 
#define DOUBLE QUOTE '\"' 
#define LEFT PAREN '(' 
#define RIGHT PAREN ')' 
#define LINE SPLICE (-2) 


/* Strings */ 
#define NULLSTR "" 
#define NEWLINESTR "\n" 
/** Types **/ a 
/* Boolean -- standard truth values */ 
typedef enum 

{ 

FALSE, 

TRUE 

} Boolean; 
#if 0 
/* Note: The following 'enum' version of Object_Type uses an 'int' (16 bits) 

of storage under Microsoft C 6.0! */ 

/* Object _Type -- values for first component of 'Object' (self-id tag) */ 
typedef enum ’ 

f 

/* General Types */ 

UNDEFINED, 

SYMBOL, 

STRING, 

INTEGER, 

FUNCTION, 

PAIR, 

VECTOR, 

/* Built-in C Structures */ 

TOKEN, 

} Object_Type; 
#endif 
/* Note: The following version of Object _Type is guaranteed to use only one 
‘char' of storage. (Contrast with 'enum' version, above.) */ 
/* Object_Type -- values for first component of 'Object' (self-id tag) */ 
typedef char Object Type; 
/* General Types */ 
#define UNDEFINED 
#define SYMBOL 
#define STRING 
#define INTEGER 
#define FUNCTION 
#define PAIR 
#define VECTOR 
/* Built-in C Structures */ 
#define TOKEN 7 
/* Pointer -- ‘Generic *' : what's pointed to is unknown at compile time */ 
typedef void *Pointer; 
/* Object -- pointer to self-identified object (starts with Object Type) */ 
typedef Object Type *Object; 


DO SWNHF © 


/* Function -- pointer to function of ? arguments returning Object */ 
typedef Object (*Function) (Object, ...); 

/* Function_0 -- pointer to function of 0 arguments returning Object */ 
typedef Object (*Function_0) (void); 

/* Punction_1 -- pointer to function of 1 Object returning Object */ 


typedef Object (#Function_1) (Object); 
/* Symbol_Entry -- the attributes of a symbol (entered into Symbol Table) */ 
typedef struct 

{ 


char *print_ name; /* printed representation and lookup key */ 
Object value; /* value of global variable named by symbol */ 
} Symbol Entry; f 

/* Pair -- a Lisp 'cons' cell for creating linked lists */ = 


typedef struct 
{ 


Object car; /* any Object */ 
Object cdr; /* PAIR Object or NULL (usually) */ 
} Pair; 
/* Token -- structure Object stores token type and lexeme string */ 


typedef struct 
( g 


Object type; /* SYMBOL */ 
char *lexeme; /* string as it appeared in external file */ 
} Token; 


/* Hash_Table -- an array of hash-bucket lists used for symbol tables */ 
typedef Object Hash Table [HASH TABLE SZ]; 

/** Macros **/ 

/* Standard Input and Outpug */ 

#define ungetchar (c) ungetc (c, stdin) 

#define peekchar () ungetc (getchar(), stdin) 

/** Object Components **/ ‘ 

/* SOT -- size of ‘Object Type' (bytes used by type tag) */ 

#define SOT sizeof (Object Type) 
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/* type -- return the object's self-identification (Object_Type) */ 


#define type(object) *((Object_Type *) object) 

/* symbol -- return the address of symbol's name and value (Symbol Entry) */ 
#define symbol (object) ((Symbol Entry *) (object + SOT)) 

/* symbol value -- return the value assigned to a symbol */ 

#define symbol value (object) (symbol (object) ->value) 

/* string -- return the address of (the first char of) standard C string */ 
#define string(object) ((char *) (object + SOT)) 

/* integer -- return an ‘int' */ 

#define integer (object) . *((int *) (object + SOT)) 

/* function -- return the address of a function that returns Object */ 
#define function(object) *( (Function *) (object + SOT)) 

/* pair -- return the address of a Lisp-style CONS cell */ 

#define pair (object) ((Pair *) (object + SOT)) 

/* first -- return first element of a list (Lisp CAR) */ 

#define first (object) (pair (object) ->car) 

/* but_first -- return list less its first element (Lisp CDR) */ 

#define but_first (object) (pair (object) ->cdr)} 

/* vector -- return the base address of a 1-dimensional array of Object */ 
#define vector (object) ((Object *) (object + SOT + sizeof (int))) 


/* vector_length -- return length of a VECTOR Object (also an lvalue) */ 
#define vector length(object) *((int *) (object + SOT)) 

/* token -- return the address of a Token structure */ 

#define token (object) ((Token *) (object + SOT)) 

/* Type Predicates */ 


#define is null (object) object == NULL) 





( 
#define is_symbol (object) (type(object) == SYMBOL) 
#define is pair (object) (type (object) == PAIR) 
#define is atom(object) (is null(object) }; (type(object) != PAIR)) 
#define is list (object) (is null(object) ;}; is pair(object) ) 
#define is vector (object) (type (object) == VECTOR) 
#define is string(object) (type(object) == STRING) 
#define is integer (object) ' (type(object) == INTEGER) 
#define is function(object) (type (object) == FUNCTION) 
#define is _token(object) (type(object) == TOKEN) 
/* declare symbol -- declare extern var with same name as interned sym */ 
#define declare symbol (name, type) extern Object name; 
/* List-Based Stacks */ 
/* push -- push an object on to a (list-based) stack */ 
#define push(location, object) \ 


location = first put (object, location) . 
/* pop -- pop an object off of a (list-based) stack, NULL if stack empty */ 
#define pop(location) \ 

( (location != NULL) ? \ 

pop_f (&location) : NULL ) 
/* Function Prototypes */ 
void error (char *fstr, ...); 
Object first put (Object item, Object list); 
Object last put (Object item, Object list); 
Object list (Object item, ...); 
Object append (Object list_1, Object list 2); 
Object reverse (Object list); 
Object flatten (Object obj); 
Object flatten_no_nils (Object obj); 
void for_each (Function.1 f, Object list); 
Object map (Function_1 f, Object list); 
Object map_nonils (Function_1 f, Object list); 
Object nth (Object list, int n); 
Object assoc (Object key, Object a_list); 
Object pop f (Object *location); 
int length (Object list); 
Object is member (Object obj, Object list); 
int index (Object element, Object list); 
char *make_c_string (char *str); 
Object make symbol (char *name) ; 
Object make string (char *s); 
Object make_integer (int n); 
Object make function (Function f); 
Object make token (Object type, char *lexeme) ; 
Object make vector (int length); 
Object list_to_vector (Object list); 
void write object (Object obj); 
Object read_object (void); 
Object lookup (char *str); 
Object intern (char *str); 
Object install with value (char *str, Object val); 
Object set_symbol value (Object sym, Object val); 
void install_internal_ symbols (void); 
void mark (void); 
void free to mark (void); 
void mark_persistent (void); 
void unmark persistent (void); 
Pointer safe malloc (size t size); 
void safe free (void *p); 
void free object (Object obj); 
Object copy_object (Object obj); - 
Object - persistent copy object (Object obj); 
void init internal read table (void); 
void set_internal reader (void); 


End Listing One 


e e 
Listing Two 
/* File I-SYMS.H of 28-Jan-91 / Copyright (C) 1990 by Daniel N. Ozick */ : 


/** Declaration of Symbols in Internal Symbol Table **/ 
/* Symbol Types ¥*/ 








declare symbol (SYMBOL TYPE, SYMBOL_TYPE); 
declare symbol (RESERVED, SYMBOL TYPE) ; 
declare symbol (CHAR TYPE, SYMBOL TYPE) ; 
declare symbol (TOKEN TYPE, SYMBOL TYPE) ; 


/* Reserved "Lisp" Symbols */ 

















declare symbol ( UNDEFINED, RESERVED) ; 
declare symbol (NIL, RESERVED) ; 
declare symbol (T, © RESERVED) ; 
declare symbol (EOF OBJECT, RESERVED) ; 








/* Character Types */ 
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declare symbol 
declare symbol 


(ILLEGAL, 
( 
declare symbol ( 
( 
( 
( 


ITESPACE, CHAR_TYPE) ; 
STRING MARKER, CHAR TYPE) ; 
COMMENT MARKER, CHAR TYPE) ; 























declare symbol 
declare symbol (SPECIAL, TYPE): 
declare symbol (CONSTITUENT, CHAR TYPE) ; 
declare symbol (ESCAPE MARKER,’ CHAR TYPE) ; 
















































































declare symbol (ENDFILE MARKER, CHAR TYPE) ; 
/** Token Types **/ 
/* For Internal Diagnostics */ 
declare symbol (T ERROR, TOKEN TYPE) ; 
/* Internal Special Symbols (Lisp IO) */ 
declare symbol (T_LPAREN, TOKEN TYPE) ; 
declare symbol (T_RPAREN, TOKEN TYPE) ; 
/* Others */ 
declare symbol (T NEWLINE, TOKEN TYPE) ; 
declare symbol (T WHITESPACE, TOKEN TYPE) ; 
declare symbol (T WORD, TOKEN TYPE) ; 
declare symbol (T_ STRING, TOKEN TYPE) ; 
declare symbol (T_EOF, TOKEN TYPE) ; 
° e 
End Listing Two 
e e 
Listing Three 


/* File LISP.C of 6-Feb-91 / Copyright (C) 1990 by Daniel N. Ozick #*/ 


/** Lisp-Style Library for C (Main File of User Functions) **/ 
/* Include Files */ 
#include <stdlib.h> 
#include <string.h> 
#include <stdio.h> 
#include <stdarg.h> 
#include "lisp.h" 
#include "i-syms.h" 
/** Functions **/ 
/* error -- write string (args like 'printf') to 'stdout' and exit */ 
void error (char *fstr, ...) 
{ 
va_list ap; 
va_start (ap, fstr); 
vfprintf (stdout, fstr, ap); 
fputc (NEWLINE, stdout) ; 
/* write DOS EOF to ‘stdout' for compatibility */ 
fputc (DOS EOF, stdout); 
exit (1); 
va_end (ap); 
} 
/** List Constructors **/ 
/* first put -- add an Object to the front of a list (Lisp CONS) */ 
Object first put (Object item, Object list) 
{ 
Object new list; 
new list = (Object) safe malloc (sizeof (Object _Type) + sizeof (Pair)); 
type (new list) = PAIR; 
pair (new list) -> car = item; 
pair (new list) -> cdr = list; 
return (new list); 
} 
/* last put -- add an Object to the end of a list (Destructive!) */ 
Object last put (Object item, Object list) 
{ 
Object old list, new list; 
new list = first put (item, NULL); 
if (list == NULL) 
return (new list); 
else 


{ 








Sahist! = DVse s 

while (but_first (list) != NULL) 
lsc. ie nputvtirst (List) ; 

pair (list) -> cdr = new_list; 

return (old list); 

} 

} 

/* list -- return a new list of given arguments (last arg must be NULL) */ 
Object list (Object item, ...) 

{ 

va_list ap; 

Object result; 

result = NULL; 
va_ start (ap, item); 
while (item != NULL) 
{ 
result = last put (item, result) ; 
item = va.arg (ap, Object); 
} 

va_end (ap); 

return (result); ’ 

} ~ 
/* append -- concatenate two lists (destructive (!) Lisp equivalent) */ 
Object append (Object list_1, Object list 2) 

{ 





Object list; 
LE (list: 1° ==: NULL 
return (list 2); 
else 
if (list_2 == NULL) 
return (list_1); 
else 
{ 
DBE Last Ls 
while (but first (list) != NULL) 
iat but first. (last); 
pair (list) -> cdr = list 2; 
return (list 1); 


} 





(continued on page 114) 
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Conversion Tools 
for Fortran Programmers 
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@ Call for more information 
and combined product discounts! 


COBALT BLUE 
2940 Union Avenue, Suite C 
San Jose, CA 95124, USA 
—TEL(408) 723-0474, 
FAX(408) 377-7648 





CIRCLE NO. 107 ON READER SERVICE CARD 


Printer Graphics Libraries 
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usage, page margins, and normal/reverse video mode. Supports 
fanless) ole) e)0] tlm e)sialtclece 

NO ROYALTIES! 


mcie $145 


PGL is a.generic printer graphics library which may be used 
e\felalomelmulameelalielacev(e]am Vitam lal arcveie=1-1 ame] e-le)allercmle)ectavm-ielen 

as Turbo C, MetaWINDOW, C Source GFX, or Genus GX. PGL 
IS NOT ascreen dump utility. It provides high resolution 

fo] ¢-Ve)alrexsmele}(e/0]me)amanley>)m ole) e)0)t-am e)dial(-1¢-yumm Oxo) anlaat-laleicmlalelele(~ 
pgLineTo, pgLineRel, pgSetColor, pgSetFillStyle, pgArc, pgPie, 
pgSetFontStyle, pgLineStyle, pgSetPixel, pgSetViewPort, etc. 
MU lim ©aiai(=1q@rere)alice)mco)mat-lale(cver-lel-y, ele)ace-l) mela(-uaie-tlle lam =a V1 
usage, page margins, and normal/reverse video mode. Bindings 
for C, FORTRAN, PASCAL, BASIC, and CLIPPER compilers. 
NO ROYALTIES! 


AnSoft,Inc. 8254 Stone Trail Court, Laurel, MD 20723 USA 
Voice/FAX 301-470-2335 
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MICROSOFT, TURBO AND MIX POWER C PROGRAMMERS...C WINDOWS 
TOOLKIT" PUTS YOU IN CHARGE OF VIDEO and DATA-ENTRY 


WINDOWING FUNCTIONS 


* Create pop-up windows 

* Create pull-down menus 

* Create spreadsheet menus 

¢ Create context-sensitive help screens 

* Store windows in RAM or on disk 

* Modify windows out of view ‘ 

* Use 8 different types of exploding windows 
¢ Scroll and move windows 


NEW FEATURES 


+ Comprehensive data-entry and verification procedures with scant ) type syntax. 

¢ Predefined data-entry functions for dates, SSNs, telephone numbers, currency amounts with 
commas, time, scientific notation, etc. 

¢ Turn any window into an editor with your choice of keyboard mapping (Wordstar™ by default), 

¢ Virtual windows up to available memory. 

¢ Save windows to disk. . NEW 

* Nested windows. VERSION 


* Create and edit VGA/MCGA/EGA/Hercules fonts of any size. 2.0 


VGA/EGA SUPPORT 


© Use all 64 VGA/EGA colors 

¢ Use VGA 29/43/50 line modes 

¢ Use EGA 43-line mode 

¢ Use 2 fonts simultaneously 

¢ Design and edit custom fonts with FONTEDIT “our font 
editor (included) 

* Smooth scroll and pan the screen 


FAST SCREEN I/0 


SYSTEM CONTROL 


* Device-independent output 

* Supports VGA/MCGA/EGA/Hercules/ CGA/MDA 

¢ Detect the types of video adapter installed 

¢ Switch between adapters 

¢ Detect ANSI.SYS 

* Detect the enhanced keyboard 

* Disable the video signal 

© Delay program execution to microsecond resolution 


Full source code included — No run-time royalties. 


PO. Box 475594 
Garland, TX 75047-5594 
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* Write formatted output (like printf( )) 
* Get snow-free output on the CGA 
* Use direct screen writes or the BIOS 


HERCULES SUPPORT 


¢ Create and edit your own Ramfonts™ 

¢ Detect the presence of a Hercules Card 

* Detect Ramfont™ support 

¢ Load and store Ramfonts™ to RAM or disk 
* Switch between modes 


Includes 230 page manual — 30-day Money-Back Guarantee 


Magna 
Carta 
SOFTWARE 


Only $9995 
(Texas Residents add 
8% sales tax.) 


Requires: IBM PC, XT,AT, PS/2 or compatible. 
Supports Microsoft C/Quick C, Borland Turbo C, Mix Power C 


CALL (214) 226-6909 
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“MAKING THE SUBTLE THINGS HAPPEN” 


“C-slash-slash” is the C extension injecting the power of parallelism within a single 
C-program. Slashing your programs into hundreds of smoothly cooperating processes results 
into slashed design phase, slashed development time, slashed team-work management, 
slashed debugging efforts, slashed ... cost! Correct, C// is simply a productivity booster. 


WHY IS C/ SUBTLE 


Memory length determination 
Field offset determination 














New semiautomatic storage 
Optional private process stacks 













Stack yellow zones Efficient communication driver 
Separable processes Two-phase events handling 
Double access to the arguments Urgent process executions 
Dynamically changeable priorities Self-parallel functions 
Improved memory management Top performance 





Various synchronization mechanisms - resources, flash-events, timeouts, queues, two-way- 
linked and sequentially-linked lists, etc. are available in addition to all the standard C- 
communications. You can control synchronization, interprocess communication, shared 
resources protection, priority handling time management, etc. Here is the C // state- 
switching diagram, the right-hand transitions being under your initiative: 


a > running (possesses the CPU) > 
< > eligible (competes for CPU) 


> 

waits forever ” 

waits for a timeout ¥ = 
> 


< 

< waits for certain event 
=< waits for certain resource 
< 
< 


ome waits to access a queue 
iS waits for data 


QNX claims 6,896 switches/sec (s/s) on a 286/16 MHz - an order of magnitude faster than 
any UNIX. C// goes beyond 7,000 s/s ona 8MHz XT under regular Doe! At 12 MHz it makes 
12,000 s/s with 100 processes being with private stacks:and 16,000 s/s if none of the pro- 
cesses has a private stack. Just try to imagine the performance on 286, 386, 486, 586 ... pro- 
cessor operating at 16, 20, 25, 33 ... MHz before making your check or money order payable to: 


Subtlesoft International, 
4344 Bristol St., Pittsburgh, PA 15207 


(412) 521-1158 S 


\s 
INTRODUCTORY PRICES: Demo $33; C// $333. PA—6% tax. All product YS 


names are trademarks of their respective companies. 
BREAKTHRU 


THE SUBTLE 
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Listing Three (Listing continued, text begins on page 36.) 


} 
/** List Modifiers ¥**/ 
/* reverse -- return a new list in reverse order (Lisp equivalent) */ 
Object reverse (Object list) 
{ 
Object new list; 
new_list = NULL; 
while (list != NULL) 
if 


new_list = first_put (first (list), new list); 
list = but_first (list); 
} 
return (new _list); 
‘ 
/* flatten -- return the leaves of a tree (atoms of nested lists) */ 
Object flatten (Object obj) 
{ 
if (is_null (obj)) 
return (first put (NULL, NULL)); 
else if (is_atom (obj)) 
return (list (obj, NULL)); 
else if (is_null (but first (obj))) 
return (flatten (first (obj))); 
else 
return (append (flatten (first (obj)), ’ 
flatten (but _first (obj)) )); 


/* flatten_no_nils -- 'flatten' a tree, discarding NULL atoms */ 
Object flatten_no nils (Object obj) 
{ 
if (is_null (obj)) 
return (NULL); 
else if (is_atom (obj)) 
return (list (obj, NULL)); 
else 
return (append (flatten_no nils (first (obj)), 
flatten_no_nils (but_first (obj)) )); 
} 
/** Mapping Functions **/ 
/* for_each -- apply a function 'f' to each element of a list #*/ 
void for_each (Function_1 f, Object list) 
{ 
while (list != NULL) 
f 


(*£) (first (list)); 
list = but_first (list); 
} 
/* map -- apply a function 'f' to each element of list, put results in list #/ 
Object map (Function_1 f, Object list) 
{ 


Object output; 
output = NULL; 
while (list != NULL) 
{ 
output = first_put ((*f) 
list = but_first (list); 
} 
return (reverse (output)); 
} 
/* map nonils -- like 'map', but collect only non-NULL results */ 
Object map_nonils (Function_1 f, Object list) 
{ 
Object result; 
Object output; 
output = NULL; 
while (list != NULL) 
{ 
result = (*f) (first (list)); 
if (result != NULL) 
output = first_put (result, output); 
list = but_first (list); 
} 
return (reverse (output)); . 
} 
/** List Selectors **/ 
/* nth -- return nth element of a list or NULL (Lisp equivalent) */ 
Object nth (Object list, int n) 
{ 


(first (list)), output); 


while ((list != NULL) && (n > 0)) 
{ 
list = but_first (list); 
at 
} - 
if (list != NULL) 
return (first (list)); 
else 
return (NULL); 


/* assoc -- association-list lookup returns PAIR whose 'first' matches key */ 
Object assoc (Object key, Object a list) . 
{ 


Object pair; 
while (alist != NULL) 
{ 
pair = first (alist); 
if (first (pair) == key) 
return (pair); 
else . 
a_list = but first (alist); 
} 
return (NULL); 
/* pop f -- pop an object off of a (list-based) stack: 'pop' macro helper */ 
Object pop f (Object *location) 
{ 


Object item; 


(continued on page 116) 
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‘the last barrier 
Taree 


a (OWwaropnceele 
to 42-bit pro 


Open Intel’s new 386/486 C Code Builder™Kit. _ included free Intel support and a $695 price tag. 
And tear into the increased memory and performance — With no royalties to pay. Ever. 
of 32-bit DOS protected mode. Try it at no risk. Purchase it from your Intel 
Inside, you'll find everything you need to dealer with a 30-day, money-back guarantee. Or call 
develop 32-bit applications. That means you get a 1-800-525-3019 for fax document #9902, or Intel cus- 
Microsoft and ANSI compatible C Compiler and tomer service at 1-800-538-3373. Because with Code 
Libraries, Linker, Librarian, Make Utility, and Source Builder, the hardest thing about getting into 32-bit 








Level Debugger. We've even included a DOS Extender —_ programming is opening the box. 
that’s DPMI-compliant. Compliancy that enables easy 
migration to Windows’ from Microsoft. e 

To make moving up even simpler, we’ve also in 


©1991 Intel Corporation. *DPMI compatibility with these operating environments is based upon publicly stated intentions of Microsoft Corporation. — 
Intel is a registered trademark, Intel386, Intel486 and Code Builder are trademarks of Intel Corporation. Windows is a registered trademark of Microsoft Corporation. 
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Listing Three (Listing continued, text begins on page 36.) 


item.= first (*location) ; 
*location = but_first (#*location); 
return (item); 


} 


/* List Properties */ 
/* length -~ return the integer length of a list (Lisp equivalent) */ 
int length (Object list) 
int n; 
n = 0; 
while (list != NULL) 
{ 
list = but_first (list); 
nt++; 
} 
return (n); 
; ; 
/* is member -- T if 'obj' is identical to element of 'list', else NULL */ 
Object is_member (Object obj, Object list) 
{ @ 
while (list != NULL) 
{ 


if (first (list) == obj) 
return (T); 
else 
List = but first, (Llist)+ 
} 
return (NULL); 
} 
/* index -- return index of first occurence of 'element' in ‘list' */ 
int index (Object element, Object list) 
{ q 
int n; 
n= 0; 
while (({list != NULL) && 
(first (list) != element) ) 
{ 
list = but_first (list); 
n++; 
} 
if (list != NULL) 
return (n); 
else 
return (-1); 
} 


/** Object Constructors **/ 
/* make_c_string -- make new copy of argument string in free memory */ 
char *make_c_ string (char *str) 

{ 

char *new_string; 

new_string = (char *) safe malloc (strlen (str) + 1); 

strcpy (newstring, str); 

return (new_string); 

} 
/* make_symbol -- return a new symbol of given name (no table lookup) */ 
Object make_symbol (char *name) 

{ 


Object new symbol; 
new_symbol = (Object) safe_malloc (sizeof (Object _Type) + 


sizeof (Symbol Entry) ); 
type (new_symbol) = SYMBOL; 
symbol (new_symbol) -> print_name = makec_ string (name); 
symbol (new_symbol) -> value = UNDEFINED; 
return (new_symbol) ; 
} 
/* make string -- return a new STRING Object with value of given string */ 
Object make_string (char *s) 
{ 
Object new string; ; 
new_string = (Object) safe_malloc (sizeof (Object Type) + strlen (s) +1 ); 
type (new_string) = STRING; 
strcpy (string (new string), s); 
return (new_string) ; 
} 
/* make_integer -- return a new INTEGER Object of specfied value */ 
Object make integer (int n) 
{ 
Object new_integer; 
new_integer = (Object) safe malloc (sizeof (Object_Type) + sizeof (int) ); 
type (new_integer) = INTEGER; 
integer (new_integer) =n; 
return (new integer) ; 
} 
/* make function -- return a new FUNCTION Object of specfied value */ 
Object make_function (Function f) 
{ 
Object new function; 
new function = (Object) safe malloc (sizeof (Object_Type) + 


type (new_function) = FUNCTION; 


function (new function) = f; ° 
return (new function) ; 
} : 
/* make token -- return a new TOKEN Object of specified type and lexeme */ 


Object make token (Object type, char *#lexeme) 
{ 
Object new_token; ’ 
new_token = (Object) safe_malloc (sizeof (Object Type) + sizeof (Token)); 
type (new_token) = TOKEN; 
token (new_token) -> type = type; 
token (new_token) -> lexeme = make_c string (lexeme); 
return (new_token) ; 
} 


/** Vectors ¥**/ 


/* make vector -- return a néw VECTOR object of specified 'length' */ 
Object make_vector (int length) 
{ 


Object new vector; 
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sizeof (Function)” ); 


int i; 7 
new vector = (Object) safe_malloc (sizeof (Object Type) + sizeof (int) + 

, length * sizeof (Object) ); 
type (new_vector) = VECTOR; 
vector_length (new vector) = length; 
for (i = 0; i < length; i++) ; 2 
vector (new_vector) [i] = NULL; 
return (new vector); 


} 
/* list_to_vector -- given a (proper) list, return a new VECTOR Object */ 
Object list_to vector (Object list) 

{ 


Object new vector; 
Object *element; 
new_vector = make vector (length (list)); 
element = vector (new vector) ; 
while (list != NULL) 

{ : 
*element = first (list); 
list = but first (list); 
element++; 

} 

return (new_vector) ; 

} 
/** Symbolic Output **/ 
/* write_spaces -- write 'n' spaces to 'stdout' #/ 
void write spaces (int n) 

{ e 

int i; 

for (i = 0y i < my 144) 

putchar (SPACE); 

} ; 
/* write_c_string -- write standard C string with double-quotes and escapes */ 
void write_c string (char #s) 

{ 

putchar (DOUBLE QUOTE) ; 

while (*s != EOS) 


{ 
switch (#s) 
{ 
case NEWLINE: 
putchar (BACKSLASH) ; 
putchar ('n'); 
break; 
case TAB: ia 
putchar (BACKSLASH) ; 
putchar (‘t'); 
break; 
case FORMFEED: . 
putchar (BACKSLASH) ; 
putchar ('f'); : 
break; 
case BACKSLASH: 
putchar (BACKSLASH) ; 
putchar (BACKSLASH) ; 
break; 
case DOUBLE QUOTE: 
putchar (BACKSLASH) ; 
putchar (DOUBLE QUOTE) ; 
break; 
default: 
putchar (*s); 
break; 
} 
S++; 
} 
putchar (DOUBLE QUOTE) ; 


} 

/* write_symbol -- write printed representation of SYMBOL Object */ 
void write_symbol (Object obj) 

{ : 

printf ("%s", symbol (obj) ->print_name) ; 

} 

/* write_string -- write printed representation of STRING Object */ 
void write_string (Object obj) 

{ 

write_c_string (string(obj)); ‘ 

} : 
/* pp_object -- pretty-print an Object starting at 'col', output at ‘hpos' */ 
void pp object (Object obj, int col, int hpos) 

{ ' 


int i; 
write_spaces (col - hpos);  hpos = col; 
if (obj == NULL) 
printt. {*(j"} 7 
else 
switch (type(obj)) 
{ 
case SYMBOL: 
write_symbol (obj); 
break; 
case STRING: 
write string (obj); 
break; 
case INTEGER: 
printf ("%d", integer (obj)); 
break; 
case PAIR: 
/* for now, assume proper list (ending in NULL 'but_first') */ 
putchar (LEFT PAREN) ; hpos++; 
while (obj != NULL) 
{ 
if (! is pair (obj)) 
error ("pp object: not proper list"); 
pp_object (first (obj), col+1, hpos); 


obj = but_first (obj); 
if (obj !'= NULL) 

{ - 

putchar (NEWLINE); hpos = 0; 

} 


(continued on page 118) ! 
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LISP-STYLE LIBRARY 


Listing Three (Listing continued, text begins on page 36.) 


} 
putchar (RIGHT PAREN) ; 
break; 
case VECTOR: 
putchar ('#'); hpos++; 
putchar (LEFT PAREN); hpos++; 
for (i = 0; i < vector_length(obj); i++) 
{ 
pp_object (vector(obj) [i], col+2, hpos); 
if (i < vector_length(obj)-1) 
{ 
putchar (NEWLINE); hpos = 0; 
} 


} 
putchar (RIGHT_PAREN) ; 
break; 

case FUNCTION: 
printf ("#<function>"); 

break; 

case TOKEN: 

printf ("#S(TOKEN "); 

write symbol (token (obj) ->type) ; 
putchar (SPACE); 

write c string (token(obj) ->lexeme) ; 
putchar (RIGHT PAREN) ; 


~— 





break; 
default: 
error ("pp object: not standard object"); 
break; 
} 
} 
/* write_object -- write (re-readable) printed representation of Object */ 
void write object (Object obj) 
{ 


/* for now (simple version), assume 'hpos' initially 0 */ 
pp_object (obj, 0, 0); 
} 


End Listing Three 


e e 
Listing Four 
/* File SYMBOLS.C of 5-Feb-91 / Copyright (C) 1990 by Daniel N. Ozick */ 


/** Symbol Tables and Installed Symbols **/ 
/* Include Files */ 

#include <stdio.h> 

#include <string.h> 

#include "lisp.h" 

/** Variables **/ 


pk internal_symbols -- the symbol table for "Lisp" */ 


Hash Table internal symbols; , 
/* symbol table -- pointer to the current symbol table */ 
Object *symbol table; 
/* Predefined Internal Symbols */ 
#undef declare symbol 
#define declare symbol (name, type) \ 
Object name 
#include "i-syms.h" 
/** Functions **/ 
/* init_hash_ table -- set all hash buckets in a table to the empty list */ 
void init_hash table (Hash Table table) 
{ 
int 1; 
for (1 = 0; i < HASH TABLE SZ; i++) 
table [i] = NULL; 
} 
/* hash -- given a character string, return a hash code (from Aho, p. 436) */ 
int hash (char *str) 
{ 
char *p; 
unsigned long g, h; 
/* from the book "Compilers" by Aho, Sethi, and Ullman, p. 436 */ 
h = 0; 
for (p = str; *p != EOS; p++) 
{ 
h (h << 4) + (*p); * 
g = h & 0xF0000000; 
if (g) 
{ 


h * (g >> 24); 
ne ga 


h 
h 
} 
} 
return ( (int) (h % HASH TABLE SZ)); 
} 
/* lookup -- given a string, return symbol from 'symbol_table' or NULL */ 
Object lookup (char *str) 
{ 
Object hash_bucket; /* list  */ 
Object sym; /* symbol */ 
hash_bucket = symbol table [hash (str) ]; 
/* walk linearly down ‘hash bucket' list looking for input string */ 
while (hash bucket != NULL) 
{ 





sym = first (hash bucket); 
if (strcmp (symbol (sym) -> print_name, str) == 0) 
return (sym); 
else 
hash bucket = but_first (hash bucket); 


return (NULL) ; 

' 
/* install -- add a new symbol with given print string to ‘symbol table' */ 
Object install (char *str) 
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Object new_sym; 

int hash index; 

new sym = make symbol (str); 

* insert new symbol object at the front of appropriate hash bucket list */ 
hash index = hash (str); 
symbol table [hash index] = 
return (new _sym) ; 


first_put (new_sym, symbol table [hash _index]); 


* intern -- return (possibly new and just installed) 
Object intern (char *str) 


symbol of given name */ 


Object sym; 
sym = lookup (str); 
if (sym == NULL) 


/* symbol */ 





sym = install (str); 

return (sym); 

} 
/* set_symbol_ value -- set the value of an already installed symbol */ 
Object set_symbol value (Object sym, Object val) 

{ 

symbol (sym) -> value = val; 

return (val); 

} 
/* install_with value -- add a new symbol and its value to ‘symbol table' */ 


Object install with value (char *str, Object val) 
{ 

Object new _sym; 

new_sym = install (str); 

set_symbol value (new sym, val); 

return (new_sym); 

} 
/* install_internal_symbols -- set internal symbols known at compile time */ 
void install internal symbols (void) 

{ 

symbol table = internal symbols; 

#undef declare symbol 

#define declare symbol (name, type) \ 





name = install with value (#name, type) 
#include "i-syms.h" 
install with value ("(", T LPAREN) ; 
install with value (")", T RPAREN); 


End Listing Four 


e & e 
Listing Five 
/* File LEXER.C of 6-Feb-91 / Copyright (C) 1990 by Daniel N. Ozick */ 
/** Lexical Analyzer (a.k.a. 


/* Include Files */ 
#include <stdio.h> 


Lexer, 


Scanner, or Reader) **/ 


<stdlib.h> 
<ctype.h> 
<string.h> 


#include 
#include 
#include 
#include "lisp.h" 

#include "i-syms.h" 

/* External Variables */ 

extern Object *symbol table; 

extern Hash Table internal symbols; 

/* Internal Function Prototypes */ 

Object read list (Object first_atom); 

/* Constants */ 

#define CHAR SET SZ 256 

/** Types **/ 

/* Read Table -- array giving CHAR TYPE SYMBOL for every char and EOF */ 
typedef Object Read Table [CHAR SET SZ+1]; 

/** Variables **/ 


/* internal read table -- read table for "Lisp" reader */ 
Read Table internal read table; 
/* read table -- pointer to the current read table */ 


Object *read table; 

/* eof seen -- 'get_token' ( 
Boolean eof seen = FALSE; 
/** Macros **/ 

/* char type -- return char type of char or EOF from current read table */ 
#define char type(c) read table[c+1] 

/** Functions **/ 

/* set_read_table entries -- set a list of read-table entries to Char Type**/ 





EOF) sets TRUE */ 


void set_read table entries (char *s, Object t) 

{ 

while (*s != EOS) 

char_type (*s++) = t; 

} 
/* init_read_ table -- initialize 'read table' with CONSTITUENT and EOF */ 
void init read table (void) : 
{ 

int ¢} 

for (c = 03 ¢ <- CHAR *SET SZ; c++) 


char_type (c) = CONSTITUENT; 
char type (EOF) = ENDFILE MARKER; 
} 
/* init_internal read table -- initialize 
void init internal read table (void) 
{ 
read _ table = internal read table; 
init_read table (); 
set_read table entries ( 
set read table entries ( 
set_read table entries ( 
char_type (DOUBLE QUOTE) 
char type (BACKSLASH) = 





‘internal read_table' */ 


"\t\f\n", WHITESPACE) ; 
";"> “COMMENT MARKER) ; 
Pi or SRECIAL) ; 

= STRING MARKER; 
ESCAPE MARKER; 

/* set_internal reader -- set 'read_table' and 
void set_internal reader (void) 


{ 


‘symbol table' for Lisp I/O */ 


(continued on page 120) 
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LISP-STYLE LIBRARY 


Listing Five (Listing continued, text begins on page 36.) 


read table = internal _read table; 

symbol_table = internal symbols; 

} 
/* get_whitespace -- return TOKEN Object of type T WHITESPACE */ 
Object get_whitespace (void) 

{ 

char lexeme [MAXSTRING]; 

int index; 

int current_char; 

/* collect characters up to next non-whitespace */ 

















index = 0; 
while (current_char = getchar (), 
(char_type (current_char) == WHITESPACE) && 
(index < MAXSTRING-1) ) 
lexeme [index++] = (char) current char; 
lexeme [index] = EOS; 


ungetchar (current char); . 

return (make token (T.WHITESPACE, lexeme)); 

} 
/* get_escaped_char -- return single character value, line splice ==> EOS */ 
int get_escaped_char (void) 


{ 














int c; 
/* discard ESCAPE MARKER */ 
getchar (); 


switch (c = getchar ()) 


{ 








case 'n': 

return (NEWLINE) ; 
break; 
case 't': 

return (TAB); 
break; 
case 'f'; 

return (FORMFEED) ; 
break; 
case BACKSLASH: 
return (BACKSLASH) ; 
break; 
case DOUBLE QUOTE: 
return (DOUBLE QUOTE) ; 


break; 
/* Note: LINE_SPLICE should really be discarded */ 
case NEWLINE: 
return (LINE SPLICE) ; 
break; 
default: 
return (c); 
break; 
} 
} 
/* get_string -- return TOKEN Object of type T.STRING */ 
Object get_string (void) 
{ 
char lexeme [MAXSTRING]; 
int index; 
int current_char; 
/* discard starting STRING MARKER */ 
getchar (); | 
/* collect characters until next (unescaped) STRING MARKER */ 
index = 0; 
while (current_char = getchar (), 
(char_type (current_char) != STRING MARKER) && 
(index < MAXSTRING-1) ) 
{ 


if (char_type (current_char) != ESCAPE MARKER) 
lexeme [index++] = (char) current char; 
else 


{ 
ungetchar (current char); 
lexeme [index++] = (char) get_escaped char (); 
\ 
i 
lexeme [index] = EOS; 
return (make token (T_STRING, lexeme)); 
} 
/* skip_comment -- discard characters of a 'get_token' (line) comment */ 
void skip comment (void) 
{ 
while (getchar () != NEWLINE) 


, 





} 
/* get_special_sym -- return one of the special-symbol TOKEN Objects */ 
Object get_special sym (void) 

int current char; 

char lexeme [3]; 


Object sym; “i 
current char = getchar (); 
lexeme [0] = (char) current _char; 


/* check for two-character special symbol */ . 
current_char = getchar (); 
lexeme [1] = (char) current _char; 
lexeme [2] = EOS; 
sym = lookup (lexeme); 
if (sym |= NULL) 
return’ (make_token (symbol value (sym), lexeme)); 
/* check for one-character special symbol */ 
else 
{ 
ungetchar (current char); 
lexeme [1] = EOS; 
sym = lookup (lexeme); 
if (sym != NULL) _ 
return (make_token (symbol_ value (sym), lexeme)); 
/* else error */ 
else . 
error ("get_special_sym: no token type for '%s' ", lexeme); 





} 
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} ao. ; 
/* get_word -- return TOKEN Object of type T.WORD */ 
Object get_word (void) 

{ 

char lexeme [MAXSTRING]; 

int index; 

int current char; 

/* collect characters up to next non-constituent */ 


index = 0; 
while (current_char = getchar (), 
(char_type (current_char) == CONSTITUENT) && 
(index < MAXSTRING-1) ) 
lexeme [index++] = (char) current char; 
lexeme [index] = EOS; 


ungetchar (current_char) ; 
return (make token (T.WORD, lexeme)); 
} ‘ 
/* get_token -- return a single TOKEN Object (raw version) */ 
Object get_token (void) 
{ 
int current char; 
Object ct; 
if (eof_seen) 
error ("get_token: attempt to read past end of file"); 
current_char = peekchar (); 
ct = char type (current_char); 
if (ct == CONSTITUENT) * 
return (get_word ()); 


else if (ct == WHITESPACE) 
return (get_whitespace ()); 
else if (ct == SPECIAL) 


( 
( 
( 
return (get_special sym ()); 
( 
( 





else if (ct == STRING MARKER) 
return (get_string ()); 

else if (ct == COMMENT MARKER) 
{ ‘ 


skip_comment (); 
return (get_token ()); 
} 
else if (ct == ESCAPE MARKER) 
{ 
/* discard anything but LINE SPLICE */ 


if (get_escaped_char () == LINE SPLICE) 
return (make token (T.WHITESPACE, NEWLINESTR) ); 
else 


return (get_token ()); 
} 
else if (ct == ENDFILE MARKER) 
{ 
/* set end-of-file flag (see 'with current_files') */ 
eof_seen = TRUE; 
return (make_token (T_EOF, NULLSTR)); 
} 
else 
error ("get_token: bad char type for '%c' ", current _char); 
} 
/* symbol_or number -- interpret string as SYMBOL or INTEGER Object */ 
Object symbol or number (char *s) 
{ 
if (isdigit (*s)) 
return (make integer (atoi (s))); 
else 
return (intern (s)); 
} 
/* read atom -- return an atomic Object or list-syntax TOKEN Object */ 
Object read atom (void) 
{ 
Object t, tt; 
t = get_token (); 
tt = token(t)->type; 
if (tt == T WHITESPACE) 
return (read_atom ()); 
else 
if (tt == T.WORD) 
return (symbol or number (token(t)->lexeme)); 
else : 
if (tt == T STRING) 
return (make string (token(t)->lexeme) ); 
else 
Lf (6G ee 7 BOF) 
return (EOF_OBJECT); 
else 
if ((tt == T_LPAREN) |; (tt == T_RPAREN)) 
return (t); 
else 
error ("read_atom: bad token type on input"); 
} 
/* read_object_1 -- 'read_object' with first input atom supplied */ 
Object read_object_1 (Object first atom) 
{ 
Object_Type ot; 
Object tt; 
ot = type(first_atom); 
if (ot == TOKEN) . 
tt = token(first_atom) ->type; 
if ((ot == TOKEN) && (tt == T_LPAREN) ) 
return (read_list (read_atom ())); 
else 
if ((ot == TOKEN) && (tt == T RPAREN) ) 
error ("read_object_l: right paren without matching left paren"); 
else 
return (first atom); 


} 


/* read_list -- read paren-delimited list (helper for ‘read object!) */ 
Object read_list (Object first atom) 

{ 

Object Type ot; 

Object tt; 


Object first, rest; 
ot = type(first_atom); 
if (ot == TOKEN) 
tt = token(first_atom) ->type; 
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if ((ot == TOKEN) && (tt == T RPAREN)) 
return (NULL); 
else 
1£ ((ot == TOKEN) && (tt == T EOF) ) 
error ("read list: FOF encountered before closing right paren"); 
else 
{ 
first = read object 1 (first atom); 
rest = read list (read_atom ()); 
return (first put (first, rest)); 
} 
} 
/* read_object -- read complete Object, including paren-delimited list */ 
Object read_object (void) 
{ 
return (read_object i (read_atom ())); 


} 








End Listing Five 


Listing Six 


/* File MEMORY.C of 6-Feb-91 / Copyright (C) 1990 by Daniel N. Ozick */ 





/** Memory Allocation and Deallocation Functions **/ 
/* Include Files */ 
#include <stdio.h> 
#include <stdlib.h> 
#include "lisp.h" 
/* Constants */ 
#define MAX MARK LEVELS 16 . 
/** Types **/ 
/* Mark Type */ 
typedef enum 
{ 
TEMPORARY , 
PERSISTENT 
} Mark Type; 
/* Mark -- an element of ‘mark stack! */ 
typedef struct 











Mark Type type; 
Pointer index; 
} Mark; 
/** Variables **/ 
/* marked block_list -- pointer to linked list of marked allocated blocks */ 
Pointer marked block list = NULL; 
/* mark_stack -- stack of 'Mark' and stack index */ 
Mark mark stack [MAX MARK LEVELS]; 
int mark_stack_index = 0; 
/* alloc_persistent -- FALSE means stack pointers to freeable memory blocks */ 
Boolean alloc persistent = TRUE; 
/** Functions #**/ 
/* push_marked_block -- push pointer to block on 'marked block _list' */ 
void push_marked block (Pointer p) 
{ 
* (Pointer *) p = marked block list; 
marked block list = p; 
} 


/* pop marked_block -- pop pointer to block from 'marked_block_list' ¥*/ 
Pointer pop_marked block (void) 

{ 

Pointer p; 

p = marked block list; 

if (p != NULL) 





marked _ block. list = * (Pointer *) p; 
return (p); 
} 
else 
error ("pop marked_block: 'marked_block list' is empty"); 


/* push_mark_stack -- push a Mark on top of 'mark stack' ¥*/ 
void push mark stack (Mark m) 
{ 
if (mark_stack_index < MAX MARK LEVELS) 
mark_stack [mark _stack_index++] = m; 
else 
error ("push_mark_stack: exceeded MAX MARK LEVELS") ; 
} 
/* pop_mark_stack -- pop a Mark from 'mark stack' */ 
Mark pop_mark stack (void) 
{ 
if (mark_stack_index > 0) 
return (mark_stack [{--mark_stack_index]); 
else 
error ("pop_mark_stack: stack empty"); 
} 
/* top.mark stack -- return top’of ‘mark stack' or PERSISTENT Mark if empty_ */ 
Mark top_mark stack (void) 
{ 
Mark m; 
if (mark_stack_index > 0) 
return (mark_stack {mark_stack_index-1]); 
else 
{ 
m.type = PERSISTENT; 
m.index = marked block list; 
return (m); 
} 
} 
/* mark -- push TEMPORARY Mark (with 'marked block list') on 'mark stack' */ 
void mark (void) 
{ 
Mark m; & 
m.type = TEMPORARY; 
m.index = marked block list; 
push mark stack (m); 


(continued on page 122) 
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LISP-STYLE LIBRARY 


Listing Six (Listing continued, text begins on page 36.) 


alloc persistent = FALSE; 


/* free to mark -- 'safe_free' all memory blocks ‘alloc'ed since last 'mark' */ 
void free to mark (void) 

{ 

Mark m; 

m = pop mark stack (); 

if (m.type == TEMPORARY) 


while (marked block_list != m.index) 
safe free ((char *) pop_marked block () + sizeof (Pointer)); 
_alloc_persistent = (top_mark_stack().type == PERSISTENT) ; 
} 
else 
error ("free to mark: wrong mark type on 'mark_stack'"); 
} 
/* mark persistent -- disable stacking of freeable memory block pointers */ 
void mark persistent (void) 
{ 
Mark m; 
m.type = PERSISTENT; 
m.index = marked_block_list; 
push mark stack (m); 
alloc_persistent = TRUE; ’ 
} 
/* unmark persistent -- pop a PERSISTENT Mark off the 'mark_stack' ¥*/ 
void unmark persistent (void) 
{ 
Mark m; 
m = pop mark stack (); 
if (m.type == PERSISTENT) 
alloc_persistent = (top_mark_stack().type == PERSISTENT) ; 
else 
error ("unmark persistent: wrong mark type on 'mark_stack'"); 
} 
/* safe malloc -- Unix 'malloc' wrapped inside test for sufficient memory */ 
Pointer safe malloc (size t size) 


Pointer memory; 
static long numblocks = 0; 
static long total_space = 0; 
/* allocate block, including header for link in 'marked_block_list' ¥*/ 
memory = malloc (size + sizeof (Pointer)); 
num_blocks++; 
total space += size; 
if (memory != NULL) 
{ 


if (! alloc_persistent) 

push _ marked block (memory) ; 

/* return beginning of user data block */ 
return ((char *) memory + sizeof (Pointer)); 


else 

error ("safe malloc: out of memory" 
" (num blocks = %1d, total_space = %ld) \n", 
num blocks, total _space ); 


/* safe free -- Unix 'free' with first byte of block set to zero */ 
void safe free (void *p) 
{ 
* (char *) p = (char) 0; 
/* free block, including header for link in 'marked_block_list' */ 
free ((char* ) p - sizeof (Pointer)); 
} 
/* free object -- free memory for Object and recursively for its components */ 
void free object (Object obj) 
{ 
if (marked_block_list != NULL) 
error ("free object: can't free if 'marked_ block_list' not empty"); 
if (obj == NULL) 
return; 
else 
switch (type(obj) ) . 
f 


case SYMBOL: 
return; 
break; 
case STRING: 
case INTEGER: 
case FUNCTION: 
break; 
case PAIR: . 
free object (first (obj)); 4 
free object (but_first(obj)); 
break; 
case VECTOR: 
error ("free_object: VECTOR objects not implemented yet"); 
break; 
case TOKEN: 
safe free. (token (obj) ->lexeme) ; 
break; 
default: 
error ("free object: not standard object"); 
break; 
} 
safe_free (obj); 
} 
/* copy_object -- copy Object and its components recursively */ 
Object copy object (Object obj) . 
{ 


if (obj == NULL) 
return (NULL); 

switch (type(obj) ) 
{ 


case SYMBOL: 

return (obj); 
case STRING: 

return (make_string (string(ob})));_ 
case INTEGER: 
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return (make_integer (integer(obj))); 
case FUNCTION: 
return (make function (function(obj))); 
case PAIR: 
return (first_put (copy_object (first(obj)), 
copy_object (but _first(obj)) )); 








case VECTOR: 
error ("copy_object: VECTOR objects not implemented yet"); 


case TOKEN: 
return (make_token (token(obj)->type, token(obj)->lexeme )); 
default: 
error ("copy_object: not standard object"); 
} é 
} . 
/* persistent_copy_object -- 'copy_object' wrapped in ‘mark persistent' */ 


Object persistent_copy object (Object obj) 
{ 4 

Object result; 

mark persistent (); 

result = copy_object (obj); 

unmark persistent (); 

return (result); 





End Listing Six 


Listing Seven 





/* File REPL.C of 11-Feb-91 / Copyright. (C) 1991 by Daniel N. Ozick */ 

/* REPL: A Simplified Lisp-Style Read-Evaluate-Print Loop or 

A Tiny Lisp Interpreter 

REPL is a simple interactive program intended to demonstrate some of the 
features of The Lisp-Style Library for C. At the DOS > prompt, it READs user 
input and attempts to convert that input into an internal Object. Then it 
EVALuates the input Object as a Lisp expression according to the rules below. 
Finally, it PRINTs the external representation of the result of evaluating the 
input Object, and prompts for more input. This LOOP continues until either an 
error occurs or the user interrupts it with control-C or control-Break. 

Lisp expressions are evaluated as follows: 1. The empty list evaluates to 
itself. 2. A symbol evaluates to its symbol value. 3. Strings and integers 
evaluate to themselves. 4. A list whose first element is the symbol quote 
evaluates to the second element of the list. 5. A list whose first element is 
a symbol whose symbol value is a function evaluates to the result of applying 
that function to the (recursively) evaluated elements of the rest of the list. 
"Impure" Lisp-style functions--those that have non-Object inputs or output-- 
cannot be used in the Tiny Lisp Interpreter. These functions are foreach, map 
(for which pmap is the equivalent "pure" version), mapnonils, nth, length, 
and index. In addition, the interpreter cannot handle macros such as first, 
but_first, push, pop and the is_ type predicates. To create the REPL 
executable file, link the compiled versions of LISP.C, SYMBOLS.C, LEXER.C, 
MEMORY.C, and REPL.C. The required header files are LISP.H and I-SYMS.H. The 
Lisp-Style Library and this program have been compiled and tested using 
Microsoft C 6.0 under PC-DOS 3.3. #/ 











/* Include Files */ 
#include <stdio.h> 
#include "lisp.h" 
/** Variables **/ 
/* quote -- marker SYMBOL for quoted-expression special form in 'eval' */ 
Object quote; 
/** Macros **/ 
/* declare_function -- set up a SYMBOL whose value is FUNCTION (same name) */ 
#define declare function(name) \ 

install _with value (#name, make function ((Function) name) ) 
/** Functions **/ 
/* integers -- return the list of INTEGERs 'nl' through 'n2' inclusive */ 
Object integers (Object nl, Object n2) 

{ 

int i; 

Object result; 

result = NULL; 

for (1 = integer (nl); i <= integer (n2); i++) 

result = first_put (make_integer (i), result); 

return (reverse (result)); 

} 
/* sum -- return (as an INTEGER) the sum of a list of INTEGERS */ 
Object sum (Object list) 

{ 


int sum; 
sum = 0; 
while (list != NULL) 
{ 
sum += integer (first (list)); 
list = but first (list); 
I 
return (make integer (sum)); ’ 
} 
/* square -- return (as an INTEGER) the square of an INTEGER */ 
Object square (Object n) 
{ 
return (make_integer (integer (n) * integer (n))); 
} 
/* The following function is the "purified" version of map. It has a non-Object 
input and.can't be used in the Tiny Lisp Interpreter. Similar purifications 
can be made for other impure functions in The Lisp-Style Library for C. */ 
/* pmap -- apply a function to each element of a list, put results in list */ 
Object pmap (Object f, Object list) 
{ 





Object output; 
output = NULL; 
while (list != NULL) 


{ *. 
output = first_put ((*function(f)) (first (list)), output); 
list = but first (list); 
} 
return (reverse (output)); 


} 
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/* install function_symbols -- set up some symbols for read-eval-print loop */ 
void install function symbols (void) 
{ 





/* pure Object functions from LISP.C */ 
declare function (first put); 


declare function (last put); 
declare function (reverse); 
declare function (list); 





( 

( 

( 
declare function (append); 

(£1 

( 

( 


declare function (flatten); 
declare function (flatten_no nils); 
declare function (is member) ; 


declare function (assoc); 

/* pure Object functions from REPL.C (examples for Tiny Interpreter) */ 

declare function (integers); 

declare function (sum); 

declare function (square); 

declare function (pmap); 

} 
/* apply -- apply a ("pure" Object) FUNCTION to a Tist of args (max of 8) -*/ 
Object apply (Object f, Object args) 

{ 





return ((*function (f)) (nth (args, 0), nth (args, 1), 
: nth (args, 2), nth (args, 3), 
nth (args, 4), nth (args, 5), 
nth (args, 6), nth (args, 7) )); * 
} 
/* eval -- evaluate a Lisp-syntax expression (see notes above) */ 
Object eval (Object expr) 
( 


Object first_element, f; 
/* () is self-evaluating */ 
if (is_null (expr)) - 
return (expr); 
/* symbol ==> symbol's value, other atoms are self-evaluating */ 
else if (is_atom (expr) ) 
{ 
if (is_symbol (expr) ) 
return (symbol value (expr) ); 
else 
return (expr); 
} 
/* lists are function applications or quoted expressions */ 
else if (is pair (expr) ) 
{ 
first_element = first (expr); 
if (first_element == quote) 
return (first (but first (expr))); 
if (is_symbol (first element) ) 
f = symbol value (first _element); 
else 
error ("eval: first element of list is not a symbol"); 
if (is_function (f)) 
return (apply (f, map (eval, but_first (expr)))); 


else 
error ("eval: symbol value is not a function"); 
} 
} . ‘ 
/* main (REPL) -- interactive read-eval-print loop (Tiny Lisp Interpreter) ¥*/ 
int main (int argc, char *argv[]) 
1 


printf ("A Tiny Lisp Interpreter using the Lisp-Style Library for C \n"); 

printf ("Copyright (C) 1991 by Daniel N. Ozick \n\n"); 

/* initialize internal symbol tables and read-tables */ 

mark persistent (); 

install internal symbols (); 

init_internal read table (); 

set_internal reader (); 

install function_symbols (); 

quote = intern ("quote"); 

unmark persistent (); 

/* do read-eval-print loop until user interrupt */ 

while. (TRUE) 
{ 
mark (); 
printf ("\n> "); 
write object (eval (readobject ()));' 
free to mark (); 
} 

/* return "no errors" */ 

return (0); 


} 


End Listings 
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Listing One (Text begins on page 50.) 





















































/* Generic list -- by A. EF. Davidson 

* USES: To declare a generic list of class foo items and a generic 

* list of class bar items 

* #include "genriclt.hh" 

* DeclareList (Foo); 

* DeclareList (Bar) ; 

* main() 

i 

* class foo; 

* class bar; 

* GenList (foo) genListOfFoo; 

* GenList (bar) genListOfBar; 

* Genlter 

* REQULREMENTS/ASSUMPTIONS: The generic list does not manage the items memory. 
* Tt is up to the user to free them. GenList::RemovelItem() takes a pointer to 
* a member function. This function should return true is found, else false. 

* GenList::Removeltem will not compile on my machine if the member function is 
* inlined. It gives a signal 6 error message. Never use new to create a list 

* or an iter! */ 


#include <generic.h> 


#ifndef GENERIC LIST HH 
#define GENERIC LIST HH 























/* these macro's should be used any where you need to reffer to the generic 
* list, item, or iter classes. -- PTAMF: Pointer to a Member Function */ 
#define PTAMF (CLASS TAG) name2 (CLASS TAG, PTAMF) 

#define GenItem(CLASS TAG) name2 (CLASS TAG, GenItem) 

#define GenList (CLASS TAG) name2 (CLASS TAG, GenList) 

#define GenIter (CLASS TAG) name2 (CLASS TAG, GenIter) 

[*------- -7o7--------------- class Item --------------------------- */ 
/* GenItem(CLASS TAG) is a private class. It can only be created by 


* be the member functions of GenList (CLASS TAG) and GenIter (CLASS TAG) */ 









































#define GenItemdeclare (CLASS TAG) \ 
class GenItem(CLASS TAG) \ 
{ \ 
GenItem(CLASS TAG) *next; \ 
CLASS TAG &item; \ 
Genltem(CLASS TAG) (CLASS TAG &i) : item(i) \ 
{next = NJLL;} \ 
GenItem(CLASS_TAG) (CLASS TAG &i, GenItem(CLASS TAG) *n) : item(i) \ 
{next =n; } \ 
~GenItem(CLASS TAG) () \ 
L2} \ 
friend GenList (CLASS TAG) ; \ 
friend GenIter (CLASS TAG); \ 
} 
fis rE I BI less [age qos semce seems * / 
#define GenListdeclare (CLASS TAG) 
class GenList (CLASS TAG) \ 
{ \ 
Genitem(CLASS TAG) *hd; \ 
public: \ 
GenList (CLASS TAG) (GenItem(CLASS TAG) *n = NULL) \ 
{ hd = n;} 
GenList (CLASS TAG) (const CLASS TAG &i) 
{hd = NULL; insert (i);} 





~GenList (CLASS TAG) () 
{Clear ();} . 
void Clear (void) 
{ 
Genltem(CLASS TAG) *pt; 
while (hd) 
{ 
pt hd; 
hd = hd->next; 
delete pt; 
} 
} 
GenList (CLASS_TAG) (const GenList (CLASS TAG) &seq) {hd = 
GenList (CLASS TAG) operator = (const GenList (CLASS TAG) 
{ 
hd = other.hd; 
return -*this; 


: 





ttl 


eq. hd; } \ 
other) \ 
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delete rem; 
} 


} 
friend GenIter (CLASS TAG); 





void insert (CLASS TAG &1){ hd = new GenItem(CLASS TAG) (i, hd); }  \ 
void append(CLASS TAG &1i) \ 

{ \ 
for (GenItem(CLASS TAG) *pt = hd; pt && pt ->next; pt = pt->next) \ 

; \ 
if (pt) \ 

{ \ 
Genitem(CLASS TAG) ¥*tmp = new GenlItem(CLASS TAG) (i); \ 
pt->next = tmp; \ 

} \ 
else insert (i); \ 

} \ 

void removeltem(PTAMF (CLASS TAG) found, CLASS TAG &0bj) \ 7 

{ My 
GenItem(CLASS TAG) *prev, *rem; \ 
prev = NULL; \ 
rem = hd; \ 
while( rem && ! (obj.*found) (rem->item) ) \ 

{ \ 
prev = rem; \ 
rem = rem->next; \ 

} \ 
if (rem) \ 

{ \ 
if (prev) »\ 
prev->next = rem->next; \ 
else ‘ 
hd = rem->next; re \ 
\ 

x 

\ 

\ 


} 
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[/*%----- ---- SSeS Sree -=+ Glass Tter -y=sssHasssssssasHsseeeseee */ 
/* interate over entire list -- CLASS TAG *operator() () */ . 
#define GenIterdeclare (CLASS TAG) \ 
class Geniter (CLASS TAG) \ 
{ \ 
GenItem(CLASS TAG) *current; \ 
public: \ 
GenIter (CLASS TAG) (GenList (CLASS TAG) -&ilist) ‘ 
{ current = ilist.hd; } : 
GenIter (CLASS TAG) (GenIter (CLASS TAG) &other) \ 
{ current = other.current; } \ 
~GenIter (CLASS TAG) () \ 
eS \ 
GenIter (CLASS TAG) operator = (GenList (CLASS TAG) &ilist) \ 
{ current = ilist.hd; return *this; } \ 
CLASS TAG *operator() () \ 
{ \ 
if (current) \ 
{ \ 
GenItem(CLASS TAG) *tmp = current; \ 


current = current->next; 
return &tmp->item; 
} 
return NULL; 
} 
} ’ 
/* macro that create all the generic types provided for ease of uses. For some 
* unknown reason my compiler can't handle a function parameter that is a 
* pointer to a member function. It can deal with it if the pointer is 
* declared using a typedef */ 
#define DeclareList (CLASS TAG) \ 
typedef int (CLASS TAG: :*PTAMF (CLASS TAG) ) (CLASS TAG &); \ 
class GenList (CLASS TAG); \ 
class GenIter (CLASS TAG); \ 
\ 
\ 


Bee ee ge? 


declare (GenItem, CLASS TAG) ; 
declare (GenList,CLASS TAG) ; 
declare (GeniIter, CLASS TAG) 


#endif 
| End Listing One 
Listing Two 


/* testl.cc -- by A. E. Davidson -- Provides a driver to test generic list */ 


#include <stream.h> 
#include "coin.hh" 
#include "genericl.hh" 


/* Use the declare macros to allow creation of list of desired types ¥*/ 
DeclareList (coin); 


/* Prototyping function using generic list stuff must be after DeclareList() */ 
void displayAndTotal (GenIter(coin) next_coin); 


main() 
{ 
/*--- create some coins ------- * / 
coin cl = penny; 
coin c2 = nickel; 
coin c3 = dime; 
coin c4 = quarter; 
pees create a list of coins ----- + / 


GenList (coin) list_of coins; 
list_of_coins.append(cl) 
list_of_coins.append(c2) 
list_of_coins.append(c3) 
list of coins.append(c4) 


. 
Ul 
. 
i 
. 
‘ 
. 
Ul 


p Res display the list of coins and there total ------ */ 
displayAndTotal (list_of_coins); 
J i Si me onenleni remove one of the colina: ---+=---s-45— * / 


cout << "\n\n list after removing coin ¢c2 \n"; 
list_of_coins.removeItem(&coin::found, ¢2); 
displayAndTotal (list_of_coins) ; 
/* Remember: c2 has been removed from the list but it still exists */ 
cout << "\n\n coin c2 still exists, it was only removed from the list \n"; 
cout << "coin: " << ¢c2; 
#ifdef NEVER 
/* This example shows a design flaw with generic list assignment operator. , 
* If you delete an object but do not remove it from the list first, you 
* will get a core dump. The list will contain a dangling reference. 
* This is becuase I chose to implement the list using references instead of 
* copying the objects. See the discusion at the end of the article. */ 
coin *c5 = new coin(quarter); 
list_of_coins.append (*c5) ; 
delete c5; - 
displayAndTotal (list_of_coins) ; 
#endif 
} 
/* This function illustrates how to use the GenIter class. Notice that 
* parmeter list expect an inter object, but I always pass a list object */ 
void displayAndTotal (GenIter (coin) next_coin) 


double total = 0.0; 
coin *tmp; 
while ((tmp = next_coin())) 


/* coins know how to convert themselves to doubles */ 
total += *tmp; 

/* coins also know how to display themselves */ 

cout << "coin: " << *tmp << "\ttotal: " << total <<"\n"; 


} 


End Listing Two 
Listing Three 





/* coin class -- by A. E. Davidson 
* USES: Provides a simple class that can be used to illistrate the operation 
* of the generic list. A coin can be a penny, nickel, dime, or quarter. */ 
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#ifndef COIN HH 
#define COIN HH 
enum coin_type {penny, nickel, dime, quarter}; 
class coin 
{ 
coin type unit; 
double amount ; 
public: 
coin() 

{unit = penny; amount = 0.01;} 
coin( coin_type type); 
coin(const coin &other) 

{unit = other.unit; amount = other.amount; } 
~coin() {7} 
coin& operator = (const coin &other) 

{ unit = other.unit; amount = other.amount;} 
friend ostream& operator << (ostream &0s, coin &c); 
operator double () 

{return amount; } 

/* This function is intended to be used with Genbist (CLASS TAG) : :removeItem() 
* I get a compile error if I try to inline this function. */ 
int found(const coin &other) ; 

oa 

#endif 


End Listing Three 
e @ 
Listing Four 
#include "stream.h" 
#include "coin.hh" 
char *coin name[] = {"penny", "nickel", "dime", "quarter"} 


/* Convenient lookup table. Keeps from having to duplicate case statements any 
* time you need to work with unit data member. */ 
static struct 


{ 
coin type kind; 
double amount ; 
} table [] = 


{ 
{penny, y 0.01}, 
{nickel, 0.05}, 
{dime, 0.10}, 
{quarter, 0.25}, 
{quarter, 0.0}, 
is 
coin::coin(coin type type) 
{ 
unit = type; 
for (int i = 0; table[i].amount != 0.0 && unit. != table[i].kind; i++) 


/* end of the table */ 


amount = table[i].amount; 


eee operator << (ostream &0S, coin &c) 
os << coin namei¢ anit) ; 
return os; 
Oe coin::found(const coin &other) 
| return (unit == other.unit); 


End Listing Four 
Listing Five 


/* This is the output from CPP g++ -E testl.cc. I reformated output to make it 
* easier to read. */ 


typedef int (coin::* coinPTAMF  ) (coin &); 
class coinGenList ; 
class coinGenIter ; 
class coinGenitem 
{ 
coinGenItem *next; 
coin &item; 
coinGenItem (coin &1) : item(i) 


{next = 0 ;} 
coinGenItem (coin &i, coinGenItem *n) : item(1i) 
{next = n; } “coinGenItem  () 
{i} 


friend coinGenList 7 
friend coinGenIter 


‘ 


} ; 
class coinGenList 
{ ‘ 
coinGenItem *hd; 
public: , 
coinGenList (coinGeniItem an = 0 ) 
{ hd = np} 


coinGenList (const coin &i) 
{hd = 0 ; insert (i);} 
~coinGenList () 
{Clear ();} 
void Clear (void) 
{ 
coinGenItem *pt; 
while (hd) 
{ 
pt = hd; 
hd = hd->next; 
_ delete pt; . 
} 
} 
. coinGenList (const coinGenList &seq) 
{hd = seq.hd;} 
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operator = (const coinGenList other) 


coinGenList 

{ hd = other.hd; return *this; } , 
void insert{coin &i) 

{ hd = new coinGenItem (i, hd); } 


void append(coin &i) 


for (coinGenItem | *pt = hd; pt && pt ->next; pt = pt->next) 


if (pt). 
{ 
coinGenItem *tmp = new coinGenItem (i); — 
pt->next = tmp; 
} 
else 
_ insert (i); ° 
} . 
void removeItem( coinPTAMF found, coin &0obj) 
f . 
coinGenItem *prev, *rem; 
prev = 0 ; 
rem = hd; 
while( rem && ! (obj .*found) (rem->item) ) 
{ 
prev = rem; 
rem = rem->next; 
} : 
if (rem) , 
{ 5 
if (prev) 
prev->next = rem->next; 
else 
hd = rem->next; 
delete rem; 
} 
} 
friend coinGenIter : 
he 4 
class coinGenIter 
{ 
coinGenItem *current; 
public: . 
coinGenIter: (coinGenList &ilist) 
{ current = ilist.hd; } 
coinGenIter (coinGenIter &other) 
{ current = other.current; } 7 
“coinGenIter () {;} . , . 
coinGenIter operator = (coinGenList &ilist) 


{ current = ilist.hd; return *this; } 
coin *operator () () 


{ 
{ 


if (current) 


coinGenItem *tmp = current; 
current =. current->next; 
return &tmp->item; 

} return 0 ; 


} 

Ve 3 
void displayAndTotal (coinGenIter next_coin); 
main() 
{ . 

coin cl = penny; 

coin c2 = nickel; 

coin c3 = dime; 

coin c4 = quarter; 

coinGenList . list _of_coins; 


‘list_of_coins.append(c1); 
list_of_coins.append(c2) ; 
list_of_coins.append(c3) ; 
list_of_coins.append(c4); 
displayAndTotal (list_of_coins) ; 
cout << "\n\n list after removing coin: c2 \n"; 
list_of_coins.removelItem(&coin::found, c2); 
displayAndTotal (list_of_coins) ; 
cout << "\n\n coin c2 still exists, it was only removed from the list \n"; 
couk << "Coit: "<< C2; ° : 

# 78 “testl.cc" 


void displayAndTotal (coinGenIter next_coin) 
double total = 0.0;. 
coin *tmp; 
while ((tmp = next_coin())) 
{ 
total += *tmp; a" 
cout << "coin: " << #tmp << "\ttotal: °".<< total <<"\n"; 


} 


End Listings 
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Listing One (Text begins on page 54.) 


/* end area that is copied on creation */ 
#define p_endcopy  p_wmesg 











char *p wmesg; /* reason for sleep */ 
/* Copyright (c) 1986, 1989, 1991 The Regents of the University of California. struct user *p addr; /* kernel virtual addr of u-area (PROC ONLY) */ 
* All rights reserved. swblk t p_swaddr; /* disk address of u area when swapped */ 
* Redistribution and use in source and binary forms, with or without int *p regs; /* saved registers during syscall/trap */ 
* modification, are permitted provided that the following conditions struct mdproc p.md; /* any machine-dependent fields */ | 
* are met: u_short p xstat; /* Exit status for wait; also stop signal */ 
* 1. Redistributions of source code must retain the above copyright u_short p_acflag; /* accounting flags */ 
* notice, this list of conditions and the following disclaimer. }; 
* 2. Redistributions in binary form must reproduce the above copyright #define p.session p_pgrp->pg_session 
* notice, this list of conditions and the following disclaimer in the #define p_pgid P_pgrp->pg_id 
* documentation and/or other materials provided with the distribution. /* Shareable process credentials (always resident). Includes a reference to 
* 3. All advertising materials mentioning features or use of this software * current user credentials as well as real and saved ids that may be used to 
* must display the following acknowledgement : ‘ * change ids. */ 
* This product includes software developed by the University of struct pcred { 
* California, Berkeley and its contributors. struct ucred *pc_ucred; /* current credentials */ 
* 4, Neither the name of the University nor the names of its contributors uidt pruid; /* real user id */ 
* may be used to endorse or promote products derived from this software uidt  p_svuid; /* saved effective user id */ 
* without specific prior written permission. gidt prgid; /* real group id */ 
. * THIS SOFTWARE IS PROVIDED BY: THE REGENTS AND CONTRIBUTORS ''AS IS'' AND gidt p-svgid; /* saved effective group id */ 
: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE int p_refcnt; /* number of references */ 
4 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE }; 
|: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE /* stat codes */ 
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL #define SSLEEP 1 /* awaiting an event */ 
1 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS #define SWAIT 2 /* (abandoned state) */ 
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) #define SRUN 3 /* running */ ’ 
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT #define SIDL 4 /* intermediate state in process creation */ 
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY #define SZOMB 5 /* intermediate state in process termination */ 
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF #define SSTOP 6 /* process being traced */ 
* SUCH DAMAGE. /* flag codes */ 
* @(#)proc.h 7.28 (Berkeley) 5/30/91 #define SLOAD 0x0000001 /* in core */ 
*/ #define SSYS 0x0000002 /* swapper or pager process */ 
; #define SSINTR 0x0000004 /* sleep is interruptible */ 
" #ifndef _PROC_H_ #define SCTTY 0x0000008 /* has a controlling terminal */ 
fr #define _PROC_H_ #define SPPWAIT 0x0000010 /* parent is waiting for child to exec/exit */ 
#define SEXEC 0x0000020 /* process called exec */ 
#include <machine/proc.h> /* machine-dependent proc substruct */ #define STIMO 0x0000040 /* timing out during sleep */ 
f #define SSEL 0x0000080 /* selecting; wakeup/waiting danger */ 
/* One structure allocated per session. */ #define SWEXIT 0x0000100 /* working on exiting */ 
4 struct session { #define SNOCLDSTOP 0x0000200 /* no SIGCHLD when children stop *#/ 
int s_count; /* ref cnt; pgrps in session */ #define STRC 0x0004000 /* process is being traced */ 
} struct proc *s leader; /* session leader */ , #define SWTED 0x0008000 /* another tracing flag */ 
i struct vnode *s ttyvp; /* vnode of controlling terminal */ #define SADVLCK 0x0040000 /* process may hold a POSIX advisory lock */ 
: struct tty *s_ttyp; /* controlling terminal */ 
char s_login[MAXLOGNAME] ; /* setlogin() name */ #ifdef KERNEL 
33 /* We use process IDs <= PID MAX; PID MAX + 1 must also fit in a pidt 
/* One structure allocated per process group. */ * (used to represent "no process group"). #*/ 
d struct pgrp { #define PID MAX 30000 
struct pgrp *pg hforw; /* forward link in hash bucket */ #define NO PID 30001 
| - struct proc *pg_mem; /* pointer to pgrp members */ #define PIDHASH (pid) ((pid) & pidhashmask) 
f struct session *pg_session; /* pointer to session */ #define SESS _LEADER(p) ((p)->p_session->s_ leader == (p)) 
pidt pgid; /* pgrp id */ #define SESSHOLD(s) ((s)->s_count++) 
int pg_jobe; /* # procs qualifying pgrp for job control */ ; #define SESSRELE(s) { \ 
}; if (--(s)->s_count == 0) \ 
/* Description of a process. This structure contains information needed to FREE(Ss, MSESSION); \ 
Hi * manage a thread of control, known in UNIX as a process; it has references } 
fe * to substructures containing descriptions of things that process uses, but extern int pidhashmask; /* in param.c */ 
‘i * may share with related processes. Process structure and substructures are extern struct proc *pidhash{[]; /* in param.c */ 
* always addressible except for those marked "(PROC ONLY)" below, which might struct proc *pfind(); /* find process by id */ ‘ 
i * be addressible only on a processor on which the process is running. */ extern struct pgrp *pgrphash[]; /* in param.c */ 
struct proc { struct pgrp *pgfind(); /* find process group by id */ 
struct proc *p link; /* doubly-linked run/sleep queue */ struct proc *zombproc, *allproc; /* lists of procs in various states */ 
: struct proc *p rlink; extern struct proc proc0; /* process slot for swapper */ 
struct proc *p nxt; /* linked list of active procs */ struct proc *initproc, *pageproc; /* process slots for init, pager */ 
: struct proc *#p prev; /* and zombies */ extern struct proc *curproc; /* current running proc */ 
/* substructures: */ extern int nprocs, maxproc; /* current and max number of procs */ 
struct pcred *p cred; /* process owner's identity */ 
: struct filedesc *p fd; /* ptr to open files structure */ #define NOS 32 /* 32 run queues */ 
struct pstats *p stats; /* accounting/statistics (PROC ONLY) */ struct prochd { 
; struct plimit *o limit; /* process limits */ struct proc *ph link; /* linked list of running processes */ 
struct vmspace *p_vmspace; /* address space */ struct proc *ph_rlink; 
struct sigacts *p_sigacts; /* signal actions, state (PROC ONLY) */ } qs[NQS]; 
#define p_ucred p_cred->pc_ucred int whichgqs; /* bit mask summarizing non-empty qs's #/ 
#define p._rlimit p_limit->pl_rlimit #endif /* KERNEL */ 
int p flag; #endif /* ! PRCH #/ “ 
char p_stat; ° ae 
pidt ppid; /* unique process id */ End Listing 


struct proc *p hash; /* hashed based on p pid for kill+exit+... */ : \ 
struct proc *p pgrpnxt; /* pointer to next process in process group */ 
struct proc *p pptr; /* pointer to process structure of parent */ 
struct proc *posptr; /* pointer to older sibling processes */ 

/* The following fields are all zeroed upon creation in fork */ 

#define p_startzero p ysptr 
struct proc *pysptr; /* pointer to younger siblings */ 
struct proc *p_cptr; /* pointer to youngest living child */ 
/* scheduling */ 
uint pocpu; /* cpu usage for scheduling */ 
int pcpticks; /* ticks of cpu time */ 
fixpt_t p_pctcpu; /* $cpu for this process during p time */ , : #68 
caddr_t p_wchan; /* event process is awaiting */ 
uint p time; /* resident/nonresident time for swapping */ 


int pelptine; /* time aince last blank #/ Isn't #defining TRUE to be 1 dangerous, since any nonzero 
struct itimerval prealtimer; /* alarm timer #/ | value is considered “true” in C? What if a built-in Boolean or 


struct timeval p_utime; /* user time */ , ¥ » . 
struct timeval pstime;  /* system time #/ relational operator “returns” something other than 1? 
int p traceflag; /* kernel trace points */ 
struct vnode *p_tracep;/* trace to vnode */ 


int psig; /* signals pending to this process */ It is true (sic) that any nonzero value is considered true in C, 
* d ar h d H P 7 “ . ” Hl 
oe but this applies only “on input,” that is, where a Boolean 


#define p.endzero  p_startcopy 

/* The following fields are all copied upon creation in fork */ value is expected. When a Boolean value is generated by a 
sigset_t p.sigmask; /* current signal mask */ ta in 8 os 

#define p_startcopy p sigmask built-in operator, it 1S guaranteed to be 1 or 0). (This 1S not 
sigset_t p_sigignore; /* signals being ignored */ : : ; 
Sigset_t p_sigcatch; /* signals being caught by user */ true for some library routines, such ds isalpha.) 
u_char p pri; /* priority, negative is high */ 
u_char p.usrpri; /* user-priority based on p.cpu and p nice */ ; 
char p.nice; /* nice for cpu usage */ P : 
struct pgrp *p.pgrp; /* pointer to process group */ Copyright © 1991 Steve Summit 
char p_comm[MAXCOMLEN+1 ] ; 
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Sun Developers 


Open The DEC VAX Marketplace 
To Your XView Products. 





XView Architecture 
Sun VAX 
XView for VMS is a toolkit from q Free 30-Day Evaluation 
TGV that’s the quick and easy way : Of TGV’s XView For VMS. 


to convert your existing XView | F Just for the asking, you get TGV’s 
applications to run on DEC’s VAX/ RR ee ere: §=—XView for VMS for 30-days at no 
VMS systems over DEC windows. With eel | wm = Charge. The toolkit includes XView 
our free, 30-day evaluation, you can | 2.0 Libraries, OPEN LOOK Window 
produce your first conversion befor? ——— See § anager, OPEN LOOK fonts, and 

© you have to make a commitment to ‘Window Manager XView example programs. Act now 

~~. enter the huge DEC market. and expand your marketplace to include the huge DEC 

A Fast, Low Cost — market. For complete details call Pete Holstrom at TGV 

Migration Path. _ toll-free today. \ 

“»  TGV’sfast and 





SunOS 1 VMS 











~ affordable XView | 
for VMS lets you — 1-800-TGV-3440 
NS | accomplish in days 
ae what otherwise would Lae 
take many months. For example,Windowing code should 


require no modification. Enjoy a low development price 





| without runtime per-copy fees, and no matter how many Cs 
copies of your application you sell there are no additional ; - 
. charges for your success. Destined To Be The New Standard. 


TGV is a trademark of TGV, Inc. DEC, VAX and VMS are registered trademarks of Digital Equipment Corporation. Sun and SunOS are registered trademarks and XView is'a trademark of Sun Microsystems, Inc. 
TGV, Inc., 603 Mission St., Santa Cruz, CA 95060. Tel (408) 427-4366. FAX (408) 427-4365. ©1991 TGY, Inc. 
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Graphical Instrument Librar 


The universal library for building 
fast graphical displays for data 
acquisition and control. 
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Rich set of instruments includes: 
Dial gauges, bar gauges, thermometers, seven-segment 
displays, strip-charts, annunciators, alarms, signal 
conditioning, timing, PID control and more! 





All instruments are fully scalable. Virtual coordinates 
allow programs to run unmodified on over 27 video modes! 
Works with any data acquisition hardware, 
even serial-based systems! 


One version supports Turbo C, Microsoft C, QuickC. 
QuickBASIC, Turbo Pascal and others available soon. 


For a free demo, call Advanced 


(404) 352 “4788 El sotuti 


<Iq Solutions 
1920 Moores Mill Atlanta, GA 30318 
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FREE We'll include a free copy of the pocket- 
sized XT-AT Handbook by Choisser and 


Foster with each BiosKit if you mention this ad when 
you order. Of course, this $9.95 value is also available 
by itself. Or buy five or more for only $5.00 each. 


“ver | 800-462-1042 


619-271-9526 


AMERICAN 
EXPRESS 


Annabooks 


12145 Alta Carmel Ct., Suite 250 
San Diego, CA 92128 


FAX 619-592-0061 
Money-back guarantee 
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68HC05 


Listing One (Text begins on page 66.) 


#pragma portrw PORTA @ 0x00; 
#pragma portrw PORTA @ 0x01; 
#pragma portrw DDRA @ 0x04; 
a portrw DDRB @ 0x05; 
a portrw TCST @ 0x08; 
a portr -TCNT @ 0x09; 





#pragma memory RAMPAGEO [64] @ Oxc0; 
#pragma memory ROMPROG [1024] @ 0x300; 


#pragma has STOP ; 
#pragma has WAIT ; 
#pragma has MUL ; 





#pragma vector _TIMER @ 0x07f8; 

#pragma vector _IRQ @ 0x07fa; 

#pragma vector _SWI @ Ox07fc ; 
a vector _ RESET @ 0x07fe; 





End Listing One 


Listing Two 


#pragma option v 
#include "hc05j1.h" . 
#include "general .h" 


/* define the global variables */ 
int hrs,mts,sec; 

int count; 

int corr, Gorr2, corr3: /* used to correct the time errors */ 
main(void) 


corrlecorr2=corr3=0; /* time corrections */ 
TCST /RTO=0; /* 57.3 ms cop timer */ 

TEST REVO /* 8.192 ms RTI */ 

TCST.RTIE=1; /* Turn on the RTI */ 

TCST.RTIF=0; /* Reset interruput */ 

TCST . TOF 20; /* flags */ 

CLI()} 5 /* turn on interrupt */ 
FOREVER 

{ 








if(sec==60) /* do clock things each minute #*/ 
{ 
sec=0; 
if (++mts==60) 
{ 
mts=0; 
if (++hrs==13) 
nrsel; 
} 
} 
WAIT () ; /* wait here to save the energy */ 
} 
} 
void _TIMER(void) 
{ 


/* routine executed every RTI (8.192 ms) */ 


TCST.TOF=0; /* reset the interrupt */ 
TCST.RTIF=0; /* flags */ 
if (++count==122) 
{ 
sec++; /* increment seconds */ 
if (++corr1==14) /* To correct for 8.192 ms per tick */ 


{ 


Pore l=t* /* run 122 ticks per second for 13 #*/ 
if (++corr2==80) /* seconds, and 123 for the 14th second */ 
{ /* With this algorithm there are 14.000128 */ 


corr2=0; /* actual seconds per 14 indicated. Then run */ 
if (++corr3==4) 





count=1; 
coErs=-0; - 
} 
else 
count=0;/* 79 of these cycles followed by 1 cycle of */ 
} /* 14 seconds with 122 ticks per second. The */ 
else /* elapsed time for this cycle = 1120.002048 */ 
count=(-1); /* seconds for and indicated time of 1120 */ 
} /* seconds. Repeat this cycle 4 times; on */ 
else /* last cycle drop 1 tick makes indicated */ 
count=0; /* elapsed time exactly 4480 seconds.*/ 
} , 
} 
e e 
End Listing Two 
e e 
Listing Three 
#pragma option v 
; #include "hc05j1.h" 
0000 #pragma portrw PORTA @ 0x00; 
0001 #pragma portrw PORTB @ 0x01; 
0003 #pragma portr PORTD @ 0x03; 
0004 #pragma portrw DDRA @ 0x04; 
0005 #pragma portrw DDRB @ 0x05; 
0008 #pragma portrw TCST @ 0x08; 
0009 #pragma portrw TCNT @ 0x09; 
07F0 #pragma portrw _COPSVS @ 0x7f0; 
O7F8 #pragma vector _TIMER @ 0x07f8; 
O7FA #pragma vector _ IRQ @ 0x07fa; 
O7FC #pragma vector _ SWI @ Ox07fc ; 
O7FE #pragma vector _ RESET @ 0x07fe; 
#pragma has STOP ; 
#pragma has WAIT ; 





(continued on page 132) 
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Pao! 


Developers Say. . . 
“Since the Hardlock uses an algorithmic 
response chip, | am assured of the 
highest level of protection. Also, the 
optional programmable memory 
means | can keep custom 
configurations in Hardlock 
rather than in a file. | can 
protect my .EXE or COM 
files directly and/or incorporate 


WHY §& 
SOFTWARE § 
COMPANIES | 





Glenco’s high level language interface routines into my software. 
And, | feel confident I'll have Glenco’s support if | use other 
programming languages:’ 





Accountants Say. . . 


‘‘Hardlock provides our 
company with a healthier bottom 


line. Since our software can’t be 


| a copied, our revenue has steadily 
increased. The unique pro- 
gramming board allows us to 
program the Hardlock in seconds. / 
This ensures optimum delivery 
schedules from Glenco and a lower 
inventory cost for us. Hardlock’s 
field programmable feature 
means a single Hardlock can 


protect more than one product.’ 


End Users Say... 


‘Hardlock allows me to backup my 
g software investment. 

PEI | just plugged 

}  — Hardlock into the 
printer card, 
connected the 
printer cable, 
and forgot about it. 
Since Hardlock 
doesn’t require a 
battery, | am 
assured of reliability 
and no down time. 











Se 










Actual size shown. 


Hardlock — programmable, algorithmic 
response and memory option — all in one - 





GLENCO 
ENGINEERING INC. 


| ™ 
SERVING THE SOFTWARE INDUSTRY SINCE 1979 H ARDLOCK 


270 Lexington Drive 


Aehcattcitee, fant otibn-otd The Preferred Protection System! 


(708) 808-0300 FAX 808-0313 


1-800-562-2548 1-800-562-2543 
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For a distributor in Europe contact, FAST Electronic GmbH 49-89-539800-20 FAX 49-89-539800-40 
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Everyone wants more productivity 
out of their computers. 

But not everybody is willing to 
spend a fortune to get it. That’s 
why Quarterdeck productivity 
software is outselling everyone 
else’s—including Microsoft's. 


DESQview Multitasks 
and Windows 
on your PC 


As early as 1982, computer 
enthusiasts found our products 
helped them set up their ideal 
working environment. Since then, 
step-by-step. we've improved 
DESQview into what some very know- 
ledgeable people call “the best 
alternative to OS/2”. 


Today's DESQview allows you to 
multitask multiple programs in 
windows side by side—text 
programs; graphic 
programs. But best of all, 
you don’t have to buy a 
lot of new hardware and 
software to use it. DESQview 
works with the PC and the programs 
you now own. 
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These are some om DESQview’s most recent awards 





a H 

commana pre By esbanony | EE Dat ef 

18 HJCR : 7715/4) 

2% GP ‘ 
3 


Ree Fee 
Se | 5—NordPerfect- 3 .o— ec geese 
oF If after using’ |* —— 


please do not at [a 


Over 1,000,000 users multitask their programs 


with DESQview. 


QEMM Breaks 


the 640K Barrier 


Break the 640K barrier in DOS—or 
in Windows 3.0—and give your DOS 
programs up to 130K more room 
within the first megabyte of memory, 
plus another 96K of video memory, in 
some instances. 

QEMM takes buffers, network 
drivers, TSRs and other memory-using 
utilities and moves them into idle areas 
between 640K and one megabyte. 


It's not complicated. It’s easy. Just 


‘ype Optimize and QEMM does the rest. 





QEMM 386 
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PRODUCT 
EVALUATION 


SCOUE 56 


Professional 
Solutions Award 
1989 
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MOST VALUABLE PRODUCT | Environment 
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OEMM 386 is 
included with 
DESOview 386 
to create the opti- 
mum operating 
environment for 
productivity 
oriented users of 
386, 386SX and 1486 PCs. 


QEMM 50/60 is designed to 
work in IBM® PS/2™ Model 50 and 
60 PCs with specific IBM adapter 
boards. 


QEMM is the #1 selling utility 
according to distribution sources. In 
fact, it was the number one selling 
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Before After 
software package in the PC industry in 
April, May and June 1990. 
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These are some of QEMM’s most recent awards 


©1991 Quarterdeck Office Systems. IBM and PS/2 are trademarks of IBM Corporation. PC Tools Deluxe is a trademark of Central Point Software. 80286, 386, 386SX and i486 are trademarks of Intel Corporation. 
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Manifest Gives You 
In-Depth Knowledge of 
Your PC 
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Our newest utility is Quarterdeck 
Manifest, the best way to discover 
everything you ever wanted to know 
about your PC. Manifest shows you 
around ‘under the hood’, pointing out 
how memory is used, comparing 
memory speeds, and indicating how 
you can gain more room for your 
programs to work. 

It can point you to as much as 130K 
of additional RAM your programs can 
use. It shows you which memory areas 
are faster. It even helps you compare 
add-in memory board performance. 

Manifest does for memory what PC 

| Tools Deluxe does 
for disks. And it’s 
easy to use. 








QRAM Optimizes 
the Memory of 8088 and 
80286 PCs 


Once you know where you can 
move those memory-hogging utilities, 
ORAM lets you do it. It even 
works on 8088, 8086 and 80286 
PCs with EMS 4.0 or EEMS 
memory boards. 

ORAM and Manifest help 
you get every last ‘K’ out of the 
hardware you own. 

In fact, all our products are 
designed to give you more pro- 
ductivity out of the system you 
already have, whether 8088, 
8086, 80286, 386SX, 386, or i486. 


Quarterdeck 
Products for 
Everyday Heroes 


Our mission is to protect your 
investment. Whether your PC is 9 years 
old or fresh out of the box, our pro- 
ducts make it more versatile, more 
flexible; and help deliver performance 
dividends from your computer invest- 
ment. Our products help fine-tune your 
PC which helps you do your work 
better, which makes you look good. 


ur PC 


A Glimpse of the 
Future: DESQview/X 


We're also looking ahead to the next 
wave of computer development: 
enterprise computing. Our new 





DESQview/X allows different — 
computers with different operating 
systems to work together. Using the 
advanced X-windows environment, it 
lets users run programs on remote 
computers and watch them run in their 
PCs’ windows. DESQview/X will be 
available later this year. 


Quarterdeck products. The best way 
to get the most out of your PC today. 
And tomorrow. 
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FLOW CHART AND ANALYZE 
YOUR ASSEMBLY LANGUAGE 
SOURCE CODE 


Flow Charts 
Tree Diagrams 
Stack Sizing 
Register Analysis 
CPU Timing Analysis 
Procedural X-Reference 
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Context-Sensitive Help 
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Macro Expansion 
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editor warning 


i save screen 


display_warning 
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restore screen 
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Listing Three (Listing continued, text begins on page 66.) 


00C0 0040 

0300 0400 

0000 

0001 

0004 

0005 

0006 

0007 

0001 

0000 

0001 

0002 

0003 

0004 

00Cc0 00C1 00C2 

00C3 

00c4 00C5 00C6 

0300 3F C6 CLR $Cé6 
0302 3F C5 CLR $c5 
0304 3F C4 CLR $c4 
0306 11 08 BCLR 0,$08 
0308 13 08 BCLR 1,$08 
030A 18 08 BSET 4,508 
030C 1D 08 BCLR 6,$08 
030E 1F 08 BCLR 7,$08 
0310 9A CLI 

0311 B6 C2 LDA $C2 
0313 Al 3c CMP #$3C 
0315 26 18 BNE $032F 
0317 3F C2 CLR $C2 
0319 3c Cl INC $cl 
031B B6 Cl LDA $cl 
031D Al 3c CMP #$3C 
031F 26 OE BNE $032F 
0321 3F Cl CLR scl 
0323 3c CO INC $co 
0325 B6 CO LDA $co 
0327 Al OD CMP #S0D 
0329 26 04 BNE $032F 
032B A6 01 LDA #501 
032D B7 CO STA $co 
032F 8F WAIT 

0330 20 DF BRA $0311 
0332 81 RTS 

07F8 03 33 

0333 1F 08 BCLR 7,$08 
0335 1D 08 BCLR 6,$08 
0337 3c C3 INC $c3 
0339 B6 C3 LDA $c3 
033B Al 7A CMP #S7A 
033D 26 39 BNE $0378 
033F 3c C2 INC $C2 
0341 3c C4 INC $c4 
0343 B6 C4 LDA $c4 
0345 Al OE CMP #S0E 
0347 26 2D BNE $0376 
0349 3F C4 CLR $c4 
034B 3C C5 INC $c5 
034D B6 C5 LDA $c5 
034F Al 50 CMP #550 
0351 26 1D BNE $0370 
0353 3F C5 CLR $c5 
0355. 3G, C6 INC $C6 
0357 B6 C6 LDA $C6 
0359 Al 04 CMP #504 
035B 26 OF BNE $036C 
035D A6 01 LDA #$01 
035F B7 C3 STA $c3 
0361 B6 Cé6 LDA $Cé6 
0363 26 04 BNE $0369 
0365 A6 Ol LDA #501 
0367 20 01 BRA $036A 
0369 4F CLRA 

036A 20 02 BRA $036E 
036C 3F C3 CLR $c3 
036E 20 04 BRA $0374 
0370 A6 FF LDA #SFF 
0372 B7 C3 STA $c3 
0374 20 02 BRA $0378 
0376 3F C3 CLR $Cc3 
0378 80 RTI 

O7FE 03 00 

SYMBOL TABLE 

LABEL VALUE LABEL 
DDRA 0004 ; DDRB 
PORTB 0001 ; PORTD 


4 


#pragma has MUL.-; 
#pragma 
#pragma 
#define 
#define 
#define 
#define 
#define RTIF 
#define TOF 
#include "general.h" 
#define TRUE 
#define FALSE 
#define FOREVER 
#define max(a,b) 
#define min(a,b) 
#define abs(a) 

/* define the global 
int hrs,mts,sec; 

int count; 


RTO 
RT1 
RTIE 
TOFE 


memory RAMPAGEO [64] @ Oxc0; 
memory ROMPROG [1024] @ 0x300; 
0 /* timer cont_stat */ 


SHDN Er 


0 

while (TRUE) 
(a) > (b) ? (a) : 
(a) < (b) ? (a) 
(a) >= 0 ? (a) 


(b) 

: (b) 
: -(a) 
variables #*/ 


int corrl,corr2,corr3; /* time corrections */ 


main (void) 


{ 


corrl=corr2=corr3=0; /* time corrections */ 


TCST.RTO=0; /* 
TCST.RT1=0; /* 
TST sRITBSL; of* 
TCST.RTIF=0; /* 
TCST. TOF=0; /* 


CLI(); /* 
FOREVER 
{ 
if (sec==60) /* do 
sec=0; 


57.3 ms cop timer */ 
8.192 ms RTI *#/ 
Turn on the RTI */ 
Reset interruput */ 
flags */ 

turn on interrupt */ 


clock things */ 


if (++mts==60) 


mts=0; 


if (++hrs==13) 


hrs=1; 


} 


} 
WAIT (); 
} 
} 
void _TIMER(void) 
{ 


TCST.TOF=0; 


/* wait here to save energy #*/ 


/* reset the interrupt */ 


TCST.RTIF=0; /* flags #*/ 


if (++count==122) 


SEC++; 


/* increment seconds */ 


if (++corr1==14) 


{ 


corr1=0; 


if (++corr2==80) 


{ 


corr2=0; 


if (++corr3==4) 


{ 


count=1; 
corrs==0; 
} 
else 
count=0; 
} 
else 
count=(-1); 
} 
else 
count=0; 
} 
} 
VALUE LABEL VALUE LABEL VALUE 
0005 ; FALSE 0000 | PORTA 0000 
0003 ; RTO 0000 ; RT1 0001 


(continued on page 134) 
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9:10. If you can imagine it, you can prototype it fast. 9:35. Create, size and move fields to get exactly what 
With ToolBooks drawing tools. you want without a line of code. 
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9:45. Buttons and hotwords establish links to other 10:15. OpenScript is a full-featured OOP language 10:58. Finished. An elegant solution quickly and 
pages and documents. Even to other applications with built-in syntax checker and debugger. easily. Next? 
through DDE. 


something for people 
who watch the clock. 


Software scheduling used to happen on a calendar. graphics from other Windows applications. Eve : 







Now you can do it on a watch. bitmap images up to 1 megabyte in size. 
Introducing ToolBook’ 1.5. The software construction set that lets You can link ideas any way you want, too. ToolBook’s hypernavigation 
developers build Windows” programs faster than you can say C++. features let you make the connections. Once they're made, you can g0 


ToolBook’s graphical programming features enable you to quickly deeper and deeper into large volumes of information. Just by clicking 
create prototypes. Instead of writing pages of complex code to createa a hotword ora button. 
screen, just draw the screen. Instead of time-consuming exercises to You can extend OpenScript with Dynamic Link Libraries, which 
change the screen, you simply click and drag. Instead of weekends atthe _ are created in other programming languages. So ToolBook is ideal for 
office, spend them at home reading your favorite computer magazines. _ putting a graphical interface on your mission-critical applications. 
ToolBook includes OpenScript? An OOP language that has the ToolBook also supports Dynamic Data Exchange, which allows you 
muscle and agility youre looking for in a serious development tool. Plus __to build solutions by integrating multiple Windows applications. 
a built-in syntax checker and debugger to find and fix problems faster. And just to get you up and running quicker, ToolBook comes with 


Is there a limit to how complex you can get with something that a suite of sample applications with all scripts intact. Incorporate 
works this easily? Yes. We're just not sure what it is. Because ifyoucan them. Or take them apart. But you don't have to start from scratch. 
think of it, you can use ToolBook to create it. If youre interested in learning more, call 1 (800) 624-8999, Ext. 299R 

In fact, you can make it come alive. ToolBooks Script Recorder and ask for a brochure and the name of your authorized dealer. For 
creates animation sequences with a simple point and click. international inquiries, send a fax to (206) 454-0672 requesting inter- 

ToolBook offers other sophisticated graphical capabilities, too. You national information. ” 
can take advantage of a whole range of colors, a clip-art library and Then prepare for a time change. 


TOOLBOOK by<fsyeore7 esx. 


Software Construction Set For Windows 
110-110th Ave., N.E., Suite 717, Bellevue, WA 98004 


Asymetrix, ToolBook and OpenScript are registered trademarks of Asymetrix Corporation. Windows is a trademark of Microsoft Corporation. Where indicated, 
product and company names are trademarks/registered trademarks of their respective holders. 
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Listing Three (Listing continued, text begins on page 66.) 


TCR.OCIE = 1; /* enable output compare interrupt */ 

CLI(); /* enable all interrupts */ 

RTIE 0004 | RTIF 

TOF 0007 | TOFE 

IRQ O7FA | _RESET 
0333 ; corrl 
00c3 ; hrs 
00Cc2 | 


0006 ; TCNT 
0005 ; TRUE 
O7FE ; _ STARTUP 
00c4 |; corr2 
00CO ; main 


0009 ; TCST 

0001 | _COPSVS 
0000 | _ SWI 

00Cc5 ; corr3 

0300 ; mts 


0008 | 
O7F0 FOREVER 
O7FC { 
00c6 
00C1 


if (sec==60) /* do clock things each minute */ 
{ 


sec=0; 


MEMORY USAGE MAP ('X' = Used, '-' 


0300 
0340 
0380 : 
03C0 : 


= Unused) 


: XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX 
> XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXX XXXXXXXXX 


if (++mts==60) 
{ 


mts=0; 
if (++hrs==13) 
hrs=1; 
} 


0700 : 
0740 : 
0780 : 
07C0 : 


All other memory blocks unused. 


Errors : 0 
Warnings : 0 


Listing Four 


#include "hc05c8.h" 
#include "general .h" 


int hrs, mts, sec; 
long count=1000; 


/* global variables * / 


struct bothbytes /* 16 bit int structure +*/ 
{ 


int hi; 
int lo; 
si 
union isboth /* and union */ 
Long: ; 1; 
struct bothbytes b; 
ie 


union isboth time _comp_count; 
registera ac; 


void main(void) 


{ 
int key; 


Professional Quality 


} 
WAIT () ; 
} 


a-- --=-=--- KK==7- XX } 


void _TIMER(void) 
{ 


/* wait here to save the energy */ 


/* time interrupt service routine */ 


/* the program gets here every millisecond */ 
time_comp_count.b.hi = TCHI; 


ac TSR: 


End Listing Three 


/* Clear the tof bit */ 
time comp count.b.lo = TCLO; 
time comp. count.1 += 500; 


/* 500 counts per millisecond */ 


OCHI = time comp count .b.hi; 


ac -s:PSRe 


/* Clear ocf bit */ 


OCLO = time_comp.count.b.1lo; 


if (--count) 
return ; 

else 

{ 


SeC++; 


/* here every second */ 


count=1000;/* reset count to 1 second */ 


80x86 ROM Development Tools 


ROMable DOS, Only $6 each! 
Place your programs in PROM with ROM- 
DOS. Purchased in quantity, this com- 
plete ROMable operating system costs only 
$6 per copy. And its small size—less than 
32K—helps conserve valuable target sys- 
tem memory. ROM-DOS was designed 
as an embedded DOS, providing fea- 
tures like power conservation, the 
ability to run your executables di- 

rectly in ROM, and full access 

to built-in devices to sup- 

port any kind of target sys- 

tem. Plus ROM-DOS pro- 

vides the power you'd expect from 

a desktop DOS: a full-featured com- 
mand processor, extra utilities, batch file 
support, and more. And now it is compat- 
ible with MS-DOS 3.3. ROM-DOS boots 
and runs from either disk or ROM and can 
easily be configured to meet your needs. 
Ask for our free demo disk. 


ROM Your MS & Turbo C Code! 
Now C_thru_ROMeases ROM develop- 
ment with all versions of Turbo-C, C++, 
and Microsoft C. New features include 

support for Turbo Debug and remote 

debugging via a ROM socket, 

which does not use a serial port 

on the target system. 

C_thru_ROM is a com- 

plete ROM development 

package containing everything 

you need to work with your choice 

of compiler and get your application 

up and running in ROM — quickly. It 

includes: a full 80x86 locator which out- 

puts in Intel OMF, hex, and binary; ROM- 

able startup code; two choices for remote 

debugging (a Code View-like debugger or 

the Turbo remote debugger); full floating 

point support; a ROMable library (with 

printf, malloc, etc.); and much more. Call, 
write, or fax for full details. 


End Listings 








a 
0k Don’t 
us Forget! 


Send for the latest edition of the free 
Consumer Information Catalog. L] The 
Catalog lists over 200 selected federal pub- 
lications of consumer interest on subjects 
like health, nutrition, federal benefits, 
money management. L] The Catalog is 
free and so are many of the booklets. L] 
Just send your name and address, no 
strings attached. Write today: 





Consumer Information Center 
Department DF 
Pueblo, Colorado 81009 
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Call Today Toll-Free 1-800-221-6630 


Datalight 


17455 68th Avenue NE, Suite 304, Bothell, WA 98011, USA 
(206) 486-8086 ¢ fax (206) 486-0253 


CIRCLE NO. 310 ON READER SERVICE CARD 





U.S. General Services Administration 
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ges OX DEELOPHENT Se 


PCX PROGRAMMER'S TOOLKIT 4.0 








NEW! 


GX EFFECTS 2.0° 


Finally, a programmer’s 
toolkit that helps you 
incorporate graphics into 
your programs quickly and easily. 
The PCX PROGRAMMER’S TOOLKIT 
includes over 90 routines to display, 
save, scale, and print PCX 
bitmapped graphics from almost any 
program. Includes nine _ utility 
programs for capturing screens, dis- 
playing images, managing image 
libraries, and printing image files. 
Use graphics from PC 
Paintbrush, Scanners, ONLY 
Fax Machines, Clip Art, § 

or captured screens. 249 








FE Add spectacular special 
Ay effects (F/X) and anima- 
tion to your programs, 
without being trapped in an editor 
or slideshow program. Wipe, split, 
crush, slide, sand, drip, diagonal, 
spiral, random, or explode your 
graphics. GX EFFECTS 2.0 includes 
new blind, weave, and tiling ef- 
fects; animation and sprites using 
transparent puts; and Sound- 
blaster™ music support. 

Jazz up your programs ONLY 
for attention getting $3 QQ 
results. 








* PCX TOOLKIT, GX GRAPHICS, or GX TEXT recommended but not required. 





CIM 


SAVE 15% ON ALL FOUR PRODUCTS 
BY ORDERING THE GENUS GX SERIES 
DEVELOPER'S PAK FOR ONLY 


$675 


TO ORDER ANY OR ALL OF THE GENUS GX DEVELOPMENT SERIES, CALL TOLL-FREE: 


1-800-227-0918 








= Om 





CHECK, C.0.D., or PURCHASE ORDER. 


© 1991 GENUS MICROPROGRAMMING, INC. 











NEW! 
GX TEXT 2.0 





GX GRAPHICS 


A complete graphics library 
Supporting all graphics 
fal primitives. The GX GRAPH- 
Ics toolkit features full support for 
logical operations, clipping, and 
drawing to off-screen virtual buffers 
in conventional memory or ex- 
panded (LIM 4.0). The cornerstone 





of the GX SERIES, use this graphics, 


library instead of the BGI or MS | 
braries and make your program 
faster, smaller, and more 

portable across compilers ONLY 
~while supporting more $ 199 
video modes. 


4 





MEMBER 


| ae <4 


TopSpeed’ 
Consortium 





MANLOVE 4170 


CIRCLE NO. 285 ON READER SERVICE CARD 


Now you ean display 

blazing bitmapped text in 

any graphics mode as sim- 
ply as text mode. With GX TEXT, you 
can display your textual information 
right along with your graphical data, 
using the display or off-screen vir- 
tual buffers. Routines are included 
for displaying any font in the GEM 
font file format, with dynamic at- 
tributes like bolding, underlining, 
transparency, and more. Includes a 
graphical font editor for 
creating yourown fonts, ONLY 
or use any of the 1 MB+ § 1 49 
of fonts provided. 








THE GENUS GX DEVELOPMENT SERIES toolkits are hand coded in Assembly Language and are 
designed to work together or independently, with no code overhead. Collectively they save you 
time and money when adding graphics to your programs. GENUS GX SERIES toolkits come with 
complete instructional manuals and a technical support team to answer your questions. The GENUS 
GX SERIES supports 12 compilers for C, Pascal, Basic, Fortran, Assembly, and Clipper; over 30 
resolutions up to Super VGA, for the fastest, tightest code. Assembly Language source code is 
available optionally. And each toolkit in the GENUS GX SERIES comes to you ROYALTY-FREE, with 
a COMPLETE 30-DAY MONEY-BACK GUARANTEE. 


GEWOS 


RO@PROGE RAR MR HM Yt 


2900 WILCREST * SUITE 145 * HOUSTON, TX 77042 (713) 870-0737 
FAX (713) 870-0288 + BBS (713) 266-9362 


PROGRAMMER'S WORKBENCH 


;top of loop that processes a byte of input 
; register usage: 

- ; AX = input data and output data’ 

ofset into map table 

inner loop counter 

shift count for this output group 

size of output line 

DS:SI pointer to map table 


Listing One (Text begins on page 94.) 


; Scale2To3 -- Copyright 1991 by Greg Pickles, Issaquah, Wash.-- C callable ; 
; assembly language routine to ae llr 





Q 
a) 
How Hoh a 


expand 2 lines of 200 DPI bitmap to 3 lines of 300 DPI bitmap. Assumes that 
all memory for storing the lines is allocated outside this routine. 
po S Se ss SH ee Se Se en SS SH eee Pee ee ee eee Sete oes ; ES:DI pointer to output word 
.MOdel large,c $23 30: les di,piIn ;get pointer to’1lst input line 
.286 mov ah,byte ptr es:[di] ;get data from line 1 
.data add di,nBytes 
mov al,byte ptr es:[di] ;get data from line 2 


SPR See wee ite Poe erate tyke Bs Pasta orate Vig Pecan’ siege 4 “ia as 3h 
ee Ce oe SENT eee caer eae a 


; MapTbl contains the output bit map for each 2x2 input section 


; Entries are groups of 4 bytes, with the 4th byte a placeholder. test InvFlg,0ffffh ;see if we need to invert 
| iosleainiestaniesleniesieaietniarienientesteineietentetetetenaiaiananetananamatananataabatatatanatatatatatenamatatatabaenmataatataatatate : ‘tz $2335 
MapTbl dw 0000000000000000b 70 not ax 





dw 0000000000000000b 
dw 0000000000000000b 


$23.35: mov ch,4 ;do 4 2-bit segments in next loop 
mov es,word ptr pOut+2 ;get segment address of output 


ormen 
z= 


dw 0 $23.40: rol ax,2 ;bits we want are in 0,1,8,9 
dw 0000001100000000b ah push ax 
0000001100000000b and ax,303h ;mask out other bits 
0000000000000000b shl ah,2 ;move bits from 8,9 to 10,11 

dw 0 or al,ah ;or them into al 
dw 0000011000000000b 72 ’ sub ah,ah ;clear ah 
dw 0000011000000000b shl ax,3 ;ax now has offset into enlarge table 
dw 0000000000000000b mov bx,ax 
dw 0 4 
dw 0000011100000000b 3 mov ax,[si+bx] ;get output value 

: dw 0000011100000000b rol ax,cl pshift it 

dw 0000000000000000b mov di,word ptr pOut 
dw 0 or es:[di],ax j;or into output 
dw 0000000000000000b 74 
dw 0000001100000000b add di, dx ;get pointer to line 2 of output 
dw 0000001100000000b mov ax, [Si+bx+2] ;get output value 
dw 0 rol ax,cl ;shift it 
dw 0000001100000000b 35 or es:[di]l,ax ;or into output 
dw 0000001100000000b 
dw 0000001100000000b add di,dx ;get pointer to line 3 of output 
dw 0 mov ax, [Si+bx+4] ;get output value 
dw 0000011000000000b 76 rol ax,cl :shift it 
dw 0000011100000000b or es:[di],ax j;or into output 
dw 0000001100000000b 
dw 0 pop ax 
dw 0000011100000000b Pe ;adjust the shift count for the output data 
dw 0000011100000000b ;and the output pointer, if necessary 
dw 0000001100000000b emp cl,1 ;see if we need to bump output pointer 
dw 0 ja $23 60 ;jump if just need to adjust count 
dw 0000000000000000b 78 ;CL is either 0 or 1 so it must become 


dw 0000011000000000b ; either 13 or 6, respectively 


dw 0000011000000000b 

dw 0 

dw 0000001100000000b 79 
‘dw 0000011100000000b 

dw 0000011000000000b 

dw 0 

dw 0000011000000000b ia 
dw 0000011000000000b 

dw 0000011000000000b 


mov cl 
je S2 
mov cl 


; NOTE: we are later going to sub 3 


. 
‘ 


so set CL what we want + 3 


9 ;assume CL was 1 
3.50 ;jump if CL=1 
, 16 ;opps! guessed wrong so make it 13 


inc word ptr pOut 


;when CL goes from 0 to 13, need to 
; bump the output pointer by 2 
$23.50: inc word ptr pOut 


;increment output pointer 


923.60: sub ol,3 


eee ep ortetis OR gs SEN REM Vane, ie ne A RE EMG Se RE Pe SENSE LT LS LEO OE RM ee, ARS A ESTES CR PUTER SH SEDC ESY oe MRE TEER RMR EN ET ROE Lr Ne ee ne SNR eS 


dw 0 dec ch ;decrement inner loop counter 
dw 0000011100000000b ib jnz $23 40 ;jump to inner loop if not 0 
dw 0000011100000000b 
aw 0000011000000000b inc word ptr pin ;increment input pointer 
dw 0 dec OuterCnt ;decrement outer loop counter 
dw 0000000000000000b sc jnz $23 30 
t dw 0000011100000000b 
dw 0000011100000000b ret 
i dw 0 Scale2to3  endp 
: dw 0000001100000000b id end 
dw 0000011100000000b 
e e 
. ee . End Listing One 
: dw 0000011000000000b ie Listing Two 
dw 0000011100000000b 
4 dw 0000011100000000b 
: dw 0 [ RRR EAA ARE RAR ARE EAR AEE AKER ARE EERE AK EAE AREA KEE A 
4 dw 0000011100000000b at * PCXHP.H by Greg Pickles -- Header file for FAX image print program. 
dw 0000011100000000b FERGIE ESSE Ga AAG CRACRCCCCC ECR RCEC CCGG REE / 
: dw 0000011100000000b : 
dw 0 typedef struct { // This struct passes control information. 
q SHORT sXpos; // x pos for image on page in pixels 
: code SHORT sYpos; // y pos for image on page in pixels 
Fiasteeearieeaieeeienierieterienteieteteteietatedatetetetetetatetetatatanateataaatabatataetaeaeataaamaeatateaataatemated SHORT sInv; // TRUE to invert image 
; void Scale2to3 (char far*,char far*,short,short); SHORT sEndAdjust; // number of bytes at end of a raster line to adjust 
: Fiesleesierieriaietieiataiateieneiatanetedenetetetedaneetatetetatatatatatatatatataamaanatabatataetataatatetaateteeatatetatataatataen // because they are beyond the end of the actual image 
public Scale2to3 SHORT sAdjOffset; // offset in lime of first byte to adjust 
: Scale2to3 proc uses si di ds,pIn:PTR,pOut: PTR, nBytes:WORD, InvFlg:Word UCHAR ucMask; // mask to OR in to the first byte that is 
i LOCAL  OuterCnt :WORD // adjusted (image may end in middle of byte) 
, §23 0: } OPTIONS; 
a mov ax,nBytes ;get number of bytes in input line typedef struct { // This struct is the PCX file header. 
mov OuterCnt,ax ;set outer loop count UCHAR ucPcxId; // PCX ID, always 0x0a 
: mov dx, ax mult AX by 3/2 and put result in DX . UCHAR ucVer; // PCX version 
ie shr ax,1 ;div AX by 2 : UCHAR ucEncMeth; // 1 = run length 
f jne $23 10 ;if carry, then there is a fractional UCHAR ucBPP; // bits per pixel . 
Y inc ax ; bytein the result, so inc for it USHORT usUpLeftX, usUpLeftyY; // position of upper left corner 
q $23.10: add dx,ax ;save # of bytes in output line in dx USHORT usLORightX, usLoRightY; // position of lower right corner 
;fill the output buffer with 0 USHORT usDispXRes, usDispYRes; // resolution of display 
: mov cx,dx ;multiply output line size by 3 UCHAR -aucPalette[48]; // palette data ’ 
, shl cx,1 ; UCHAR ucRes; 
add cx, dx UCHAR ucNumPlanes; // number of bit planes of data 
ro mov bx,cx ;save CX to test for odd value later USHORT usBytePerLine; P // # bytes in an raster line 
shr cx,1 ;divide CX by 2 to get word count UCHAR ucRes2[60]; 
. les di,pOut ;get pointer to output buffer } PCX_HDR; 
: sub ax,ax ;get fill value 


rep stosw pRaeB ott me Function prototypes------- Sa Ta */ 








test bl,1 ;see if extra byte to fill int PCXToHP(char*, FILEBUFFER*, OPTIONS*) ; 
jz $23 15 void usage(void) ; 
stosb * PCX_HDR *PcxReadHeader (PCX_HDR*, FILEBUFFER®*) ; 
$23.15: mov ax, @data void pcx print header {PCX HDR*) ; 
mov ds,ax UCHAR *pcx_alloc_line(PCX HDR*, SHORT) ; 
mov si,offset MapTbl 
mov cl,13 ;amount to shift initial output value (continued On page 138) 
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Even This Is More Confining Than Clipper. 


Just as the vast expanse of the American West gave its settlers a new perspective 
on opportunity, Clipper’s open architecture lends unprecedented freedom to 
application development. 











Unlike fixed systems, Clipper never forces you to “make do”. Its language is 
fully extensible with user-defined functions and new user-defined commands. 
You can extend the language with routines written in Clipper itself, or integrate code 
from other languages like C, Assembler, dBASE® and Pascal. Odds are, you already 
have knowledge you can use with Clipper! 


But if a customizable language isn’t enough, there’s even more elbow room. 
Database and I/O drivers can be supplemented or replaced. Even Clipper’s linker 
knocks down barriers by allowing you to develop applications larger than available 
memory, without defining overlays! And when you're done, Clipper’s compiler 
generates stand-alone, executable files for cost-free, unrestricted distribution. 


So, don’t let the bounds of fixed systems fence you in. Unleash your imagination 
in the wide-open spaces of Clipper. To find out more, give us a call today. : 


Clipper 5.0 


The Application Development Standard 


| Ask For Department-K 
CIRCLE NO. 171 ON READER SERVICE CARD 





Nantucket Corporation, 12555 West Jefferson Boulevard, Los Angeles, CA 90066. 213/390-7923 FAX: 213/397-5469 TELEX: 650-2574125. Nantucket, the Nantucket 
logo and Clipper are registered trademarks of Nantucket Corporation. Other brand and product names are used for identification purposes only and may be trademarks or 
registered trademarks of their respective holders. Entire contents copyright © 1991 Nantucket Corporation. 


PROGRAMMER'S WORKBENCH 


Listing Two (Listing continued, text begins on page 94.) 


int PcxReadLines (PCX_HDR*, UCHAR*, FILEBUFFER*, SHORT, OPTIONS*) ; 
UCHAR *pcx_test_line(PCX_HDR*, UCHAR*, SHORT, SHORT); 

UCHAR *ScanNE(UCHAR*, UCHAR, int); 

int IndexNE(UCHAR*, UCHAR, int); 

int CntREQ(UCHAR*, UCHAR, int); 

int main(int, char**) ; 


void Scale2to3 (char far*,char far*,short,short) ; 


End Listing Two 


Listing Three 


[ RRRRERRREAAERRA ARERR RER ARAB AREER KAKA EERE EEK ERR REER RARER RK EK 
* PCXHP.C by Greg Pickles --- FAX to LaserJetII image print program. 
KEKE EERE AREER EERE RE REK ERE AEE KER ARERR BER AREREAREEERE RRR / 

#include <stdio.h> 

#include <stdlib.h> 

#include <string.h> 

#include <memory .h> 

#include <malloc.h> 

#include <fcntl.h> 

#include <io.h> 

#include .<sys\types.h> 

#include <sys\stat.h> 

#include <conio.h> 


"bufio.h" 
"pcxhp.h" 


#include 
#include 


[ RRRAARARAR RARE RAR KARE BAKER ERE ERA RRR REE ERR RRR AREER RE 


* PCXToHP -- Process a PCX file. Returns 0 if successful, non-0 
* pszFileName pointer to the input file name 

* pstrcOutFile pointer to output file buffer structure 

* pstrcOpt pointer to OPTIONS struc for processing this file 
KEKE AREARE EKA REAR ERK RRR RAR AER REAR REEER EERE REE / 

int PCXToHP(char *pszFileName, FILEBUFFER *pstrcOutFile, OPTIONS *pstrcOpt) 
{ 
FILEBUFFER 
PCX_HDR 
SHORT 
UCHAR 

int 


if error 


*pstrciInFile; 

strcHdr; 

i, k, sXsize, sYsize, sLineBytes, sExpLineSize; 
*pucLine, *pucExpBuf; 

ROMER et Cury..3-<1s 


static 


char szRes300 [] = "\x01b*t300R"; 
strcpy(szFileName, pszFileName) ; 
if (strchr(szFileName,'.') == NULL) 

strcat (szFileName, ".pcx"); 
// allocate input file buffer and open file, using my buffered I/O routines 
if ( (pstrcInFile=FileOpen(szFileName,0)) == NULL ) 

return 1; 
if (PcxReadHeader (&strcHdr,pstrcInFile) == NULL) { 

fprintf(stderr, "Error reading PCX header in file '%s'\n", 

szFileName) ; 
close (pstrcInFile->hFile) ; 
return 3; 


// make local copy of name 
// add .PCX if needed 


if (strcHdr.ucNumPlanes != 1) { 
fprintf(stderr, "Error: Not a monochrome PCX file.\n"); 
close (pstrcInFile->hFile) ; 
return 5; 
} 
// extract size of line, compute number of rows, 
// allocate buffer for 2 input lines 
sLineBytes = strcHdr.usBytePerLine; 
sYsize = strcHdr.usLoRightY - strcHdr.usUpLeftY + 1; 
pucLine = malloc(2*sLineBytes) ; 
// determine whether any bits/bytes need to be masked 
// at the end of a decompressed line 
sXsize = (strcHdr.usLoRightX - strcHdr.usUpLeftX + 1); 
if ( sXsize/8 <.sLineBytes ) { 
pstrcOpt->sEndAdjust = sLineBytes - sXsize/8; 
pstrcOpt->sAdjOffset = sXsize/8; 
pstrcOpt->ucMask = (UCHAR) (0xff >> sXsize%8); 
} 
// compute length of scaled line and allocate buffer 
sExpLineSize = strcHdr.usBytePerLine + (strcHdr.usBytePerLine/2) + 
((strcHdr.usBytePerLine & 1) ? 1: 0); 
malloc (sExpLineSize*3) ; 
// set HP graphics resolution to 300 DPI 
BufWrite(pstrcOutFile,szRes300, strlen(szRes300)); 
// init position on page 
pstrcOpt->sxXpos; 
pstrcOpt->sYpos; 


pucExpBuf = 


iNewX 
iNewY 


for: (1=0;14sYs1zes-1+=2):.: { 
if ( !PcxReadLines(&strcHdr, pucLine, pstrcInFile, 2, pstrcOpt) ) 
break; 
Scale2to3 (pucLine, pucExpBuf, sLineBytes, pstrcOpt->sIny) ; 


int 


char 
char 
char 


static 
static 
static 
static 
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iNewX, iNewY, iFront, iBack; 
szFileName [80]; 
szHpLineLead [20]; 
szHpPos [50]; 
// these strings are for building PCL4 commands 
SzPosFmtFXYO [] "\x01lb*ptdx3dY\x01b*r1A"; 
SzPosFmtY [] "\x01lb*p%dy"; 
szGrDataFmt [] "\x01b*b3dw" ; 
szEndGr [] "\x01b*rB"; 


for (k=0; k<3; k++) f 
if ((iFront=IndexNE (pucExpBuf+k*sExpLineSize,0,sExpLineSize)) >= 


iNewX = pstrcOpt->sXpos + iFront*8; 
iBack=CntREQ (pucExpBuf+ (k+1)*sExpLineSize-1,0,sExpLineSize) ; 
if (iNewX != iCurX) { 

sprintf (szHpPos, szPosFmtFXYO, iNewX, iNewY) ; 


(continued on page 140) 





AUTOMATED SOFTWARE TESTING 
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Keystrokes, mouse movements, 
screen and printer data are 
captured by the host 
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Stored keystrokes and mouse 
movements are replayed and screen 
and printer output verified 





Automated Software Testing with the Elverex Evaluator 


The Evaluator is a software test system which automates the hand testing and 
retesting of software. Software can now be testing unattended, 24 hours a day, seven 
days a week. 

The Evaluator has a powerful, built in test generator that eases the task of 
test development and execution. 

The Evaluator Test Control Language and C Test Library allows 
comprehensive tests to be developed from software specifications. Evaluator 
automatically generates a report for each test conducted, providing all the 
information necessary to maintain comprehensive test standards. Because 
Evaluator can test graphics and text mode applications using keyboard and 
mouse input, there are few applications Evaluator cannot work with. DOS, OS/2, 
Unix, Windows and Presentation Manager applications can all be tested. Using a 
PC in terminal emulation mode, Evaluator can test minicomputer and mainframe 
software just as well. 

Evaluator is a non intrusive, hardware assisted software test system. No code 
is loaded with the software being tested, therefore Evaluator will not affect the 
behavior of the software being tested. You can rest assured that tests carried out 
using Evaluator are as valid as hand testing. 

Testing with Evaluator means higher quality software, it means shorter 
development times, it means higher profits and greater market share. 
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HIGHER QUALITY SOFTWARE 
SHORTER DEVELOPMENT TIME 
HIGHER PROFIT MARGIN 
GREATER MARKET . 


C Lancuacs LIBRARY 


A library of C functions is available which can be used in 
conjunction with the Learn Mode and TCL facility for 
complete flexibility in test development. 

Large scale test programs can be developed in C. Examples 
of applications are benchmarking, data retrieval from 
external databases and testing numerical software. 


Supports Microsoft C, Turbo C, and C+ + 
EASTERN SYSTEMS INC. 


P.O. Box 310, 117 South St., Hopkinton, MA 01748 
508-435-2151 FAX 508-435-2517 
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ANNOUNCING 
PASCAL", 
A High Performance Option 
For Turbo Pascal Users 


We agree that Borland Turbo Pascal® is a great street 
machine. But when your applications demand the 
ultimate in performance, the Stony Brook Pascal t+ 
optimizing compiler has the extra power you need — and 
an unbeatable list of standard features. 


DON’T CHANGE A LINE OF YOUR CODE 

It couldn’t be easier to trade up to Pascal + . We’re 100% 
language-compatible with Turbo Pascal V6. You don’t 
change your Turbo Pascal programs at all. Just compile 
with Pascal * and get: 


Execution speeds up to 100% faster 

Code size up to 30% smaller 
You get fully optimized code with NO difference in your 
program’s operation! 


ELIMINATE ROADBLOCKS 


Pascalt comes fully equipped to handle ANY 
programming problem you encounter. Unlike Turbo 
Pascal, we produce standard Microsoft® objects, support 
all memory models, and give you complete control over 
procedure-calling and parameter passing conventions. 


INSTANTLY LINK TO OTHER LANGUAGES 

With Pascal + it’s easy to interface with code written in 
any other language. This means, for instance, that you 
can have immediate access to millions of lines of 
commercial library code written by and for C 
programmers. 












AND WE DO WINDOWS! 
Stony Brook Pascal + comes with 
full support for Microsoft Windows 3.0. 

We provide the interface units, and you use the 
windows API exactly as you would with Microsoft C. 


In fact, anything you can do with 


Microsoft® C or TurboC®, you can do 
with Stony Brook Pascal ¥ ! 


So get on the track with Stony Brook Pascal*. You'll 
qualify for races you never could enter before. 


CALL NOW OR WRITE FOR INFORMATION 
800/624-7487 © 805/496-7429 Fax © 805/496-5837 Outside U.S. 


SOFTWARE 


187 E. Wilbur Rd., Suite 9, Thousand Oaks, CA 91360 
Makers of Stony Brook Professional Modula-2 and QuickMod 


SAVE S100! WITH OUR Sreciat 


INTRODUCTORY OFFER! 
Buy directly from us by 7/31/91 and pay only: 










$295 ce ry en $395 after offer expires 
$375 vinta ff nas Caddie $475 after offer expires 





Turbo Pascal and Turbo C are registered trademarks of Borland International, Inc. Microsoft and Windows are registered trademarks of the Microsoft Corporation. 
Stony Brook Software and Pascal+ are trademarks of Gogesch Micro Systems, Inc. 
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PROGRAMMER'S WORKBENCH 


Listing Three (Listing continued, text begins on page 94.) 


BufWrite(pstrcOutFile, szHpPos, strlen(szHpPos) ); 
iCurX = iNewx; 
iCurY = iNewY; 
} 
else if (iNewY != iCurYy) { 
sprintf (szHpPos,szPosFmtY, iNewY) ; 
BufWrite(pstrcOutFile, szHpPos, strlen(szHpPos) ) ; 
iCurY = iNewY; 
} 
// note: a possible optimization is to remember the previous 
// leadin string, value of iFront, and leadin string Lengel 
// and only create them when they change 
sprintf (szHpLineLead,szGrDataFmt, sExpLineSize-iFront-iBack) ; 


BufWrite (pstrcOutFile, szHpLineLead, strlen (szHpLineLead) ) ; 
BufWrite(pstrcOutFile, pucExpBuf+k*sExpLineSize+iFront, 
sExpLineSize-iFront-iBack) ; 
iCurY++; 
} 
iNewY++; 
} 
} 
BufWrite(pstrcOutFile, szEndGr,strlen(szEndGr) ) ; 
BufWrite(pstrcOutFile,"\f",1); 
free (pucLine) ; 
free (pucExpBuf) ; 
FileClose(pstrcInFile) ; 
return 0; 
} 
[RRRRERERE RARER REA AREA AR EAR AAA RE AAR RR REE / 
void usage (void) // displays help info about usage, return to system 
{ 
printf ("PCXHP\n") ; 
-printf(" Given a .PCX file, this program creates a file which can be\n"); 


printf(" sent to an HP LaserJet printer to print the image.\n"); 

printf(" PCXHP [-xX] [-yY][-d] [-i] [-ofilename] filename\n"); 

printf(" Options include: (units) {default]\n"); 
printf(" -xPOS set horizontal position (pixels from left) {0]\n" di 
printf(" -yPOS set vertical position (pixels from bottom) [0]\n"); 

printf (" -d dump PCX file info to stdout {off]\n"); 
printf (" -i sInv image {off]\n"); 
printf("  -oFIL set output filename, or use SET PCXHP=filename\n"); 

exit (1); 


} 


[ BRRRRKARRKARE KKK RAK ARE EK ERK EAR ERE AREA RAKE KER EEA EERE EKER 
* PcxReadHeader -- Reads the header of a PCX file. Returns NULL if can't. 
HRRAKAKARARERE RARER KEANE KAKA EKER ARERR ERA RER REREEE RR EE / 
PCX_HDR *PcxReadHeader (PCX_HDR *pstrcHdr, FILEBUFFER *pstrcF) 
{ lseek(pstrcF->hFile, 0L, SEEK SET) ; 
if (read(pstrcF->hFile, (char*) pstrcHdr, sizeof (PCX_HDR) ) 
!= sizeof (*pstrcHdr) ) 
return NULL; 
else return pstrcHdr; 
nO MONO Le Aan OEE EET 
* PcxReadLines ~-- returns TRUE if success, FALSE if out of data 
Reads and expands the next N line from the PCX file. Assumes 
that the file pointer is positioned at the point in the file at 
which to begin reading. Performs data expansion as necessary. 


*e #4 He He HH 


pstrcHdr pointer to PCX header struct for the file 
pbLine : pointer to the buffer in which to put lines 
pstrcF : pointer to the opened FILEBUFFER for the file 
sLines : number of lines to read and expand 


RERAAKARARRE REAR ARA AAR AHR ERA RRA HRA RAK ERE EERE ERR RRR / 


int PcxReadLines(PCX_HDR *pstrcHdr, UCHAR *pucLine, FILEBUFFER *pstrcF, 
SHORT sLines, OPTIONS *pstrcOpt) 
{ 


int iData, iData2; 
UCHAR *pucDst, *pucLineStart; 
USHORT usLSize = pstrcHdr->usBytePerLine; 


int Liye Je 
for (j=0, pucDst=pucLine; j<sLines; j++) { 
for (1=0, pucLineStart=pucDst; i<usLSize; ) { 

// if we get EOF on the first line, return FALSE 
‘// to indicate we're done, otherwise fill the 

// rest of the lines with Oxff (i.e. blank) 

if ((iData=GetBufCh(pstrcF)) == EOF) { 
LE (7 SO) Ge ey 


memset (pucDst,, Oxff, usLSize-1) ; 
1 = usLSize; 
pucDst += (usLSize-i); 
} 
else 
return FALSE; 
} 


else { 
if ((iData & 0xc0) == Oxc0) { // check for run length 
// read data to be repeated; if EOF, return FALSE ‘ 
if ((iData2=GetBufCh(pstrcF)) == EOF) 
return FALSE; : 


memset (pucDst, (UCHAR)iData2, iData & 0x3f); 
pucDst += iData & 0x3f; 
i += iData & 0x3f; 
} 
else { 
*pucDst++ = (UCHAR) iData; 
it+; 
} 
} 
} 
if (i=pstrcOpt->sEndAdjust) { 
pucLineStart He pstrcOpt->sAdjOffset; 
*pucLineStart |= pstrcOpt- ~>ucMask; 
while (--i) 
*(++pucLineStart) = Onke: 
} 
} 
return TRUE; 
} 
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* 


* 
* 
* 
* 
* 


IndexNE -- Scans a buffer for the first byte not equal toa specified byte. 


pbBuf pointer to the buffer to test 
bval value to test for 
icount number of bytes to test 


Returns: -1 if the buffer contains only the specified byte 
otherwise offset of the first byte that is not the specified byte 


ERKAARAKA RARE KER ARK RE REB REBAR REE ERE ER RAK ERA R RAKE RE / 
int IndexNE(UCHAR *bBuf, UCHAR bVal, int iCount) 


{ 


} 


int iOrig = iCount; 

while (iCount && (*bBuf == bVal)) { iCount--; bBuf++; } 
if (iCount) return iOrig-iCount; 
return -1; 


[ RRRRARERARKRERAREE ARERR KEKE ER EERE REE RAKE RARE ER RE RRR 


* 


* 
* 
* 
* 
* 


CntREQ -- Counts the number of bytes equal to a specified byte froma 


starting point in memory backwards. 

pbBuf : pointer to the (end of the) buffer to test 
bval “ value to test for 

icount =: number of bytes to test 


Returns number of bytes found that are equal to the specified byte 


JOO CECE ECCR ER ORE EERE REE RCE RRR EAR RAI / 
int CntREQ(UCHAR *bBuf, UCHAR bVal, int iCount) 


{ 


-} 


int iOrig = iCount; 
while (iCount && (*bBuf == bVal)) { iCount--; bBuf--; } 
return iOrig-iCount; ’ 


[ RRRRARRRRARAAAK AR RAR EERE ARERR EAR ARR AR IKEAK EER ERE ERE ER EERE / 
int main(int argc, char *argv[]) 


oer 

int 1; 

FILEBUFFER ¥*OutFile; 
char *outfname = NULL; 
char *filename = NULL; 


static OPTIONS Opt = {0,0,TRUE,0,0,0}; 





if (argc < 2) usage(); 
for (i=1; i<argc; i++) 
if (argv[i][0] == '-" 
switch (toupper (argv 
{ 
case 'X': Opt.sXpos 
case 'Y': Opt.sYpos 


{ 
ti SRgvi LE (0] a5 °¢*) 
fiJ{1})) 

atoi(argv[i]+2); break; 
atoi(argv[iJ+2); break; 


tou 


case 'I': Opt.sInv = !Opt.sInv; break; 
case 'O': outfname=argv[i]+2; break; 
case '?': usage(); break; 
default: fprintf(stderr, "Unknown option %s\n",argv[i]); 
usage (); break; 
} 
else 
filename = argv[i]; 
} 
if ( (outfname == NULL) && ((outfname = getenv("PCXHP")) == NULL) ) 
outfname = "prn"; 
if ( (OutFile=FileOpen(outfname,1)) == NULL ) exit(1); 
i = PCXToHP(filename, OutFile, &Opt); 
FileClose(OutFile) ; 
return i; 


End Listings 


C' Language 


#80 


What's the best style for code layout in C? 


There is no one “best style.” It is more important that the 
layout chosen be consistent (with itself, and with nearby or 
common code) than “perfect.” If your coding environment 
(that is, local custom or company policy) does not suggest a 
style, and you don’t feel like inventing your own, just copy 
K&R. (The trade-offs between various indenting and brace 
placement options can be exhaustively and minutely 
examined, but don’t warrant repetition. here. See also the 
Indian Hill Style Guide.) 


Copyright © 1991 Steve Summit 
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Network Software Developers: 
Softy the Porcupine says... 





ONLY YOU CAN PREVENT 
SOFTWARE PIRACY ON LANs 


And Software Security gives you 


the tools to do it. Protecting your 
company's assets and intellectual property is your 
responsibility. Execution control on a LAN is a 
complex issue. Software Security's Activator/NET 
provides a way to protect and @ : 
control your software without  [RBR@Ud7Zgtr 
adversely impacting end-users. 


Site License Management 


A site license should be just that 
— permission to execute “X” 
number of applications, not 
freedom to run unlimited copies. 
Users attach one Activator/NET 


Activator/NET and Softy the Porcupine are trademarks of SSI 








to a parallel port of any PC or non-dedicated file 
server. The network will allow from 1 to 250 
concurrent users, depending on license agreement. 


Put out license agreement fires before they start. 
Call Software Security today and find out how the 
Activator/NET can help make 


license agreements stick. 





Software Security Inc. 
1-800-333-0407 


1011 High Ridge Road 06905 
In CT 203-329-8870 FAX 203-329-7428 
BBS 203-329-7253 


Australia: (09) 3162846 Europe/UK: +44-784-430-060 
Finland: (09) 505 33 55 France: (1) 46 22 99 88 





Italy: (02) 21 30 450 Netherlands: 03402-67777 
Norway: (02) 44 88 55 Switzerland: (01) 341 95 50 
Turkey: 4-167 75 04 USSR: (017.2) 31 39 45 
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SilverComm SPCS: 
“It's for you.” 


A New Class of Advanced Communication Tools. 


Solving communication problems is easy with the SilverWare Pro- 
fessional Communication Series (SPCS). 


































Users demand advanced async communications in the applications 
they buy. So we've designed an SPCS product that’s just right for 
building these powerful features into the systems you create. 


The Right Call for “C”’. 


The SilverCcomm “C” Async Library SPCS gives you reliable, high- 
performance interrupt-driven control of async communications. 


A powerful Device Event Monitor capability lets you execute “C”’ 
functions at interrupt time. These functions can set flags that signal 
your application of an important event — and you can even Create 
Device Event Monitor functions that process the interrupt. 


The Library is also fully interrupt-driven to insure reliable data 
transfers. It incorporates a table-driven design for maximum flex- 
ibility, and all source code is included. Plus: 


# Background Timers & Timed Functions 

® Terminal Emulation: ANSI, TTY, VT 100, VT 52 

® XMODEM, YMODEM (Batch), 1K-XMODEM, 
.1K-XMODEM-G, YMODEM-G (Batch) and ASCII 
® Exploits Micro Channel and 16550 UART 
® Supports up to 115K Baud 

= Supports Multiple-Port Hardware 

® Interrupt 14 Redirection feature for LANs 


"i. ii See The Right Call for the 
<a, = ae Future. 

in 3 %  SilverWare’s SPCS product 
Mop ae family is designed to help 
cee < 2 you create more powerful 
a 3 (and profitable) programs. 
And we're hard at work 
developing new products 


to keep you ahead as times 
change. 


Get the Message? 
Call Now! 


SILVERWARE’S FAMILY OF PRODUCTS 


For hd ag 
SilverComm “‘C” Async Library SPCS $249 
SilverComm ‘“‘C” EMM Library $149 
SilverComm “C” Programmers’ Pak $299 
(Includes “C” Async Library 

and “C” EMM Library) 






For dBASE & Compatibles ) : 
SilverClip SPCS $299 Don’t waste another minute 
SilverComm SPCS $249 i -fashion m- 
SilverComm “C”’ Interface SPCS $ 99 cy 8 ei ashioney £o 
SilverFox SPCS (Coming Soon) munication technology. 
SilverDB SPCS (Coming Soon) 

congablh aes Call now to order the SPCS 
SilverPaint $129 vi 

AST 4-Port AT Plus $365 product that’s right for you! 


Digiboard’s Digi HANNEL 


(214) 247-0131 
Fax (214) 406-9999 
90-day money-back guarantee 

Free Product Info Available 4 


(Call for price) 








3010 LBJ Freeway 
Suite 740 
Dallas, TX 75234 USA 
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A Language Without 
a Name: Part II 


ob Jervis is the author of Wizard 

C, which later became Borland’s 

Turbo C. Recently, Bob has been 

working on a new programming 
language, a seemingly Quixotic gesture 
in a time when, by his own admission, 
the prospects for a new, independent- 
ly developed language are dim. In last 
month’s installment of this two-part in- 
terview, he talked about C++, OOP, Ada 
and the DoD, and the approach he is 
taking with his new language. 

This month, the interview moves on 
to the future of software development, 
a future in which multiprocessor ma- 
chines will sit on the average desktop 
and parallel algorithms will be the norm. 
Ultimately, Bob brings it all around to 
an answer to the question that inspired 
the interview in the first place: Why is 
Bob Jervis writing a new programming 
language? 


DDJ: You've been doing language de- 
velopment for some time. Any thoughts 
on the quality of development tools, or 
the direction you see software devel- 
opment tools headed in the future? 

BJ: As far as development tools go, I 
haven’t seen anything that contradicts 
the basic model that Turbo C and Tur- 
bo Pascal established. More and more 
integration. More and more, you're sit- 





Michael Swaine 





ting at your screen with this ever- 
larger array of support tools there at 
your fingertips. The 640K barrier of DOS 
has been kind of a throttle on how 
much tools you get for the simple rea- 
son that having all those tools costs 
memory and costs CPU cycles. 640K 
[makes it] sort of hard to be squeezing 
100K compilers and 100K debuggers 
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and 100K code analyzers in and out and 
get any performance out of the machine. 
But I think that once you get into the 
32-bit world, things are a little more 
friendly and you'll see some really pow- 
erful development environments. 

I think the big difference between the 
way that Turbo Pascal and Turbo C have 
done things and the way the 32-bit en- 
vironments are going to work is more 
along the lines of Microsoft’s Work- 
bench, where rather than having every- 
thing compiled into one monolithic .exe, 
you're going to have a much more 
loosely connected collection of tools. 
You're going to be able to plug in your 
own editor and you’re going to be able 
to plug in a third-party debugger if they 
have a better one. 

I hate terms like software bus, be- 
cause that sort of term is very mislead- 
ing about what is really happening, but 
I think you’re going to get some simple 
publicly documented interfaces that say: 
The editor supports these features, and 
here’s how you get a list of error mes- 
sages into the editor, and here’s how 
the debugger works, and here’s how 
you find out where you are in the 
source and how you set a breakpoint, 
and here’s how the compiler works, and 
here’s how you feed it the source, and 
here’s how you’get information out, and 
so on. It’s clearly in the object-oriented 
paradigm that any particular company’s 
compiler or editor or debugger will in- 
herit that basic class and put in their 
specific implementation. It will look to 
the user like one set of windows or re- 
lated buttons under the editor, but it will 
be a much more robust set of tools. 

I think you’re going to see more 
multivendor solutions. In the good old 
mainframe days, if you went to IBM you 
got your compiler and you got your li- 
braries and you got your operating sys- 





tem, and only the very marginal niche 
languages that were too small for your 
hardware vendor to care about did you 
get from third parties. As time has gone 
on, people have become much more 
comfortable with building solutions out 
of pieces from several different sources. 

I recently got a copy of the DPMI stuff 
from Microsoft, and I was very im- 
pressed that they’ve actually docu- 
mented an interface that’s important and 
that lets third-party vendors interact with 
Windows in a fundamental way. That’s 
really exciting. Microsoft has, to this day, 
undocumented features in DOS that they 
refuse to talk about. . 


DDjJ: Last fall I heard Bill Gates ques- 
tioned about the undocumented fea- 
tures of DOS. He maintained that there 
were none. 

BJ: That’s very interesting. Well, if it’s 
undocumented, it’s not a feature, right? 
Too bad it’s things that their own utili- 
ties use. It blows my mind that the 
only way you can make a debugger 
work with a standard exe and actually 
work through the operating system is if 
you use undocumented features. Which 
is one of the things that I find impres- 
sive about DPMI: It really looks like you 
could write a DOS extender that sup- 
ports DPMI, and that therefore runs Win- 
dows under a non-DOS environment, or 
not a pure DOS environment. I think 
that’s very encouraging. That’s going to 
go a very long way toward helping a lot 
of different developers — and users — 
out. I see it as a real positive step. 

_ Of course it'll probably turn out that 
there’s some hidden feature they haven't 
told you about that’ll make Windows 
run two times faster on their DPMI im- 
plementation. 


DDJ: Getting back to your project, you 
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are planning for The Language to be a 
product, right? What are your plans? 
BJ: It's been a very interesting project. 
This spring I sat back after having done 
all this work and having made some 
presentations last fall and saia: I don’t 
have AT&T or IBM or Microsoft or Bor- 
land pushing my language. How am I 
going to find a role for it? And I said: 
Well, C didn’t become popular for ten 
years after its original invention. So if 
we assume ten years out, maybe what 
I should do is make sure The Language 
has features that people are going to 
want ten years from now. 


DDJ: I suppose that depends most on 


P E R 


what kind of hardware is on the desk- 
top in 2001. 

BJ: That’s what I looked at: What is the 
hardware going to look like ten years 
out? And the answer that came back is 
that everything is going be multipro- 
cessor. There may conceivably still be 
a $10 8088 that you can still buy in the 
year 2000; but realistically people are 
going to have two, three, four, five pro- 
cessors sitting on their desks. 

So what I concluded is that the way 
to make this language have a real fu- 
ture is to stop now before I build — or 
try to build — a large customer base and 
lock myself in, and go back and look 
at how you program a multiprocessor. 


cis £2 Ps 


Professional Software and 
’ 4 Hardware-Assisted Debuggers 
for 80386 & 80486 Systems 


Lery, CO 


herein, 
"Ne, an, 
ie 


Periscope/EM and 
386MAX team up to 
keep Periscope out of 
the lower 640k...so 
you can have both 
quality memory 
management and a 
resident debugger. 


“I needed a means to debug | 
interrupt handlers where I 
could really see what was 
going on. The hardware trace 
buffer is great. I was able to 
debug code in 3 days that I 
have been trying to debug for 
months!” 


... writes Peg Sestrich with Prime Computer, — 
on why she chose Periscope Model IV. 


The - | 
Periscope 


Company, Inc. 


1197 PEACHTREE ST. 
PLAZA LEVEL 
ATLANTA, GA 30361 
404-875-8080 

FAX 404-872-1973 





Real-time Periscope Model IV, shown with new 33MHz board and 486 pod. 
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So I started looking at the research 
materials and realized that there’s a lot 
of room. The state of the research on 
multiprocessing languages and how to 
program them is very limited. I just came 
back from Cray, which has obviously 
been working on multiprocessors for a 
number of years. It blew my mind when 
they talked about performance on the 
order of four gigaflops. Four gigaflops! 
You gotta be kidding me. But they said: 


It really looks like 
you could write a 
DOS extender that 
supports DPMI and 
therefore runs 
Windows under a 
non-DOS 


environment 





That’s just benchmarks; realistically you 
can’t expect more than about one gi- 
gaflop. So they’re in a different league. 
But ten years from now that league is 
going to be on your desk. 


DDJ: I’ve dug into the research on 
multiprocessor architectures and pro- 
gramming for this column in the past. 
The impression that I’m left with is that 
there are several different models, de- 
pending on the number of independent 
processors and whether each processor 
has jts own memory and so on, and that 
each of these models is as complex as 
the familiar sequential model. The par- 
allel universe is bigger than the se- 
quential universe. 

BJ: One of the things that Cray has stat- 
ed lis] that they are going to be going 
to massively parallel machines. Their 
[current] project is a 1000-processor mul- 
tiprocessor. 

When you look at those kinds of ar- 
chitectures, you need a different kind 
of language to talk about programming 
those kinds of beasts. Cray’s experience 
is that it’s next to impossible to take any 
oJd random piece of C code or Fortran 
and to decipher what the hell you’re 
supposed to do with your other half- 
dozen processors that are sitting around 
idle. The work they’ve been doing is 
how to get these multiprocessors to 
share a common memory where there 
aren't too many multiprocessors. They’re 


finding A, that it’s very hard, and B, that 
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Here Are Six Things 


You Should Know About _ 
Wi ndows Dev eloom ent ee 





MDICREATESTRUCT,. _ 
WM_NCLBUTTONBLCLK. hDig, 
itemD, wMsg, wParam, iParam, 


These are examples of the obtuse’ 
data types, messages and system 
calls you need to learn to develop 
Microsoft Windows applications. 
But with the right tools, the pain 
and difficulty of Windows develop- 
ment can be eased. 


SO, if you're thinking about devel- 
oping for Windows, here are some 
things you should know... 


Develop FAST 
— In Standard 
Languages! 


Forget long learning curves. 


Forget unfamiliar langu- 

ages. CASE:W™ is a devel- 
opment tool that lets you create 
Windows applications fast, using 


programming languages you know, 


like C, C++, COBOL, and others. 


You design the interface with a 
WYSIWYG-level prototyper. Then 
CASE:W generates tight, well docu- 
mented code — in standard lan- 
guages — like you’d write yourself. 
since CASE;W builds the code for 
your interface, you can concen- 
trate on the application logic. 

By using a knowledge-base that 
experts liken to having a Windows 
specialist at your side, CASE:W 
cuts Windows development time 
as much as 80%. And. there are 
no run times or royalties to pay. 


Develop It for 
Windows Today, 
Run It On OS/2 
Tomorrow 





_. Windows, OS/2 PM, Motif...Cc, C++, 
COBOL, XA... 


straight-forward or 
complex GUI develooment...Your 
development tools need to adapt 
to your corporate strategy — today 








and tomorrow. That's why. CASE- 
WORKS™ offers a wide variety of 
products that provide the platform 
and language independence 
today’s changing computing 
environment demands. 


Interfaces designed using CASE- 
WORKS products can be migrated 
among platforms and languages, 
preserving your development: 
investment as-your environments 
change. This interface interoper- 
ability makes CASEWORKS the 
leader in standard language GUI 
development tools. 


Say Goodbye 
to Development 
Restrictions 


The role of an applica- 
tion development tool is 
to improve your produc- 
tivity without introducing unneces- 
sary restrictions or limitations. That’s 
why it’s easy to merge your logic’ 
with the CASE:W generated code. 
And why you can add code direct- 
ly. to the CASE:W generated code, 
and save the changes through our 
re-generation facility. 


Microsoft 


Chose CASE:W | 


CASE:W is a strategic 
and easy way to 
develop Windows applications. 
That's what Microsoft® discovered 
when it searched for a Windows 
development tool to market with 
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its QuickC compiler. And that’ 5 why | 

you'll find QuickCASE:W™ in.every 
package of QuickC for Windows™ _ 

| Microsoft sells. 





You don’t have to take our word 


(or Microsoft's) that CASE:W isthe = 


best Windows development tool 
around. PC Magazine said 

..every Windows development - 
group should have a copy.” And 
PC WEEK lauded “It’s hard to 
imagine that GU! development 
could get any easier.” — 


You Can Learn 
More in Our 
Free Windows 
Development 
Guide 


Discover how easy Windows de- 
velopment can be by ordering 
CASE:W today. Or, ask for our | 
comprehensive guide on “What 
You Need To Know To ee 
Windows Applica- — - 
tions Now!” -It- = 
includes. a step- 
by-step descrip- 
tion — including _ 
sample code — 

of how an actual 
Windows applica- 
tion was developed. 


CASEWORKS . 


1-800-635- 1577 
1 Dunwoody Park, Suite 130 
Atlanta, GA 30338 








(404) 399-6236 e Fax (404) 399-9516 


CASE:W, CASE:PM and CASEWORKS are trademarks of 


CASEWORKS, Inc. All other products referenced are 
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PROGRAMMING PARADIGMS 


(continued from page 144) 
you have to extend the language to sup- 
port extra features so that the pro- 
grammer can help the compiler find the 
parallelism in the program. 

[But now] even Cray is admitting that 
maybe this [model of] one monolithic 
memory and a bunch of processors 
snaking through it is not going to scale 
up to 1000 processor machines very eas- 
ily. They haven’t completely figured out 
what they’re going to do, but a lot of 
other people like N Cubed and Hyper- 
cube are much more aggressively say- 
ing: What we’re going to have is x many 
thousand processors and each one’s go- 
ing to have their own dedicated mem- 
ory and we're going to be sending mes- 
sages back and forth over some 
high-speed bus, or some multitude of 
buses and communications lines, to 
share information. 


DDJ: I assume you've looked at the ex- 
isting languages. There are a number of 
languages that have been developed for 
doing parallel programming. Occam. 
Parlog. 

BJ: There’s a lot of research effort, but 
commercially there hasn’t been a lot that 
really works well with that kind of hard- 
ware. There are basically two strategic 
evolutionary directions that people are 
taking in trying to program these multi- 
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¥,y “QEdit is a GREAT piece of 


John C. Dvorak, 
September 12, 1989 


PL. Olympia, Ph.D., 
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processors. 

One is what you might call the Pro- 
log camp that says: We’re just going to 
run Prolog or some language related to 
Prolog, and what you’re going to do is 
distribute your productions and your so- 
lution resolution across this multitude 
of machines, and they’re going to exe- 
cute the productions and explore the 


In the year 2000, 
people are going to 
have two, three, four, 
five processors sitting 
on their desks 


alternatives in parallel. The problem with 
that as I see it is that — and it may turn 
out that when you have enough horse- 
power and true parallelism that it may 
work out — but those kinds of lan- 
guages haven’t proved to be too suc- 
cessful in the marketplace. People have 
a hard time programming in them. 


DDJ: And the other direction? 


QEdit has always been the text editor that 
combined price, performance and value. 


QEdit is packed with these features and more: 


colors 


memory 

= Simple to install, requires less than 50K disk space 
(60K for QEdit TSR) 

= Open up to eight windows 

=“Pop-Down” menu system and customizable Help 
screen 

= Column blocks 


= Easy-to-use macro capability — including keyboard 
recording and conditional logic 

= Recover deleted text 

= Exit to DOS or DOS shell from within QEdit, with 
optional swap feature 

= Wordwrap and paragraph reformat capability 

= Import files and export blocks 






battery drain by editing files entirely in memory 
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= Simultaneous file editing — limited only by available 


= Execute command-line compilers from within QEdit 
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BJ: It dovetails very nicely with what I 
was doing with The Language. It’s the 
area of research called Concurrent OOP. 
What that does is say: To get your par- 
allelism,.you take all the objects in your 
program, and all of a sudden all of those 
objects become parallel processes. So 
each object, instead of being a passive 
patch of memory with some functions 
somehow associated with it, is an ac- 
tive processing beast. And when you 
use the Smalltalk terminology of send- 
ing messages, you really are sending 
messages. 

I’ve run across at least half a dozen 
different projects that have worked out 
languages to express parallelism using 
this stuff, and it looks very interesting, 
so I’m working on putting those kinds 
of features into The Language. 

There’s going to be a large [range of 
numbers] of processors available in the 
machine of the year 2000. Low-end ma- 
chines like the [Intel] Micro 2000 will 
have a mere half dozen processors, 
whereas your high-end Cray machines are 
going to have 1000 to 10,000 processors, 
and we're going to need programming 
languages that work on that range of hard- 
ware. So what I want to do is [have] the 
compiler know that [when it’s running on] 
a fairly low-end machine with not many 
processors, you use less parallelism and 
compile things more into regular pro- 
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swapping feature, which requires only a 9K DOS 
kernel, and when popped up will swap your current 
application out of DOS memory into extended/ 
expanded memory or disk. (For best results, EMS, 
XMS, or a RAM disk is highly recommended.) QEdit 
TSR will not pop up over graphics mode. 


aE ty" 


404-641-9002 


FAX: 404-640-6213 BBS: 404-641-8968 


Add $3.00 for shipping — $10.00 for overseas shipping 
UPS 2nd DAY AIR available 
within the U.S. for ONLY $5.00 


(010) BSH Torer-) 0) (<10 fem O)(<y: Kotor (0(¢ ve MOL 0) 
Georgia residents add 5% sales tax 













Dr. Dobb’s Journal, August 1991 


er. See Stet of ae ke 


¢ 


I a er eT a ee 


cedure calls between objects, and 
bind more objects into a single exe- 
cutable. And then when you’ve got 
the processors, you split every- 
thing up and ship everything across 
to all the processors. 

J think that we’re probably still five 
years away from a whole lot of people 
having machines that can really take ad- 
vantage of that kind of language, be- 
cause I wouldn’t expect a real low-end 
multiprocessor from Intel, for example, 
until the 686 or 786. Before they get the 
microchips out that have a dozen pro- 
cessors, you're going to have chips with 
two or three processors on them. So 
we're still a few years away before these 
things become advantages. 


DDJ: So you are writing a language for 
a market that won't begin to emerge for 
another five years? 

BJ: Well, there is one thing that is hap- 
pening today that fundamentally is deal- 
ing with a very similar sort of problem, 
and that’s distributed [computing]. I went 
to a presentation recently by one of the 
guys at Next. They have this thing 
where you go home at night and it 
comes in and uses your desktop pro- 
cessor as extra computing horsepower. 
So I think that there’s an immediate use 
for a language like this. If you can write 
a single piece of source or write an ap- 
plication that thinks that it’s calling the 
library, and have the compiler and the 
Operating system supporting it turn that 
into a client-server application operat- 
ing over a network, you’ve got an im- 
mediate application for these features. 
And then when the multiprocessors 
come along, you’ve got even more ap- 
plications for them. 

So that’s the technical context in 
which, if you will, ’m doing version 
two of The Language. Version one is 
still pretty much a single-processor, con- 
ventional C-like language with OOP ex- 
tensions. The next generation is going 
to be much more ambitious in terms of 
the kinds of technical scope. 


DDJ: Ambitious seems to be an appro- 
priate description. Aren’t there some 
fundamental problems that have to be 
solved before a language for these kinds 
of architectures can be commercially vi- 
able? 

BJ: There are a lot of things that have 
to be solved. Clearly, if you’ve got a dis- 
tributed network where you’ve got two 
processors, then a client-server ex- 
changing messages is a sensible way of 
doing things. To get both processors in- 
volved, you have to ship information in 
the form of a message across the net- 
work. But if those two pieces of the ap- 
plication happen to be residing on one 
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machine, then it’s less clear what the | 


best way of doing it is. Because now all 
of a sudden you’re paying all this in- 
ternal overhead to do a generalized mes- 
sage send when all you’ve got is one 
little processor ticking away. 

So it’s not at all clear how you bal- 
ance the efficiency for conventional sin- 
gle-processor architecture with the flex- 
ibility of distributed computing. Most of 
the research I’ve seen has not really ad- 
dressed that very well. For example, 
message-based operating systems, while 
they have great flexibility for working 
across networks, tend not to perform 
very well compared to more conven- 
tional operating systems. So if your pro- 
gramming language makes heavy use of 
messages, then you’re going to be in the 
same boat. 

So I’m trying to explore ways to at 
least make the more common opera- 
tions of basic disk I/O flexible enough 
that if you have a network there, you'll 
be able to take advantage of it, but if 
you don’t have a network it’ll still be 
relatively efficient. For today, that’s prob- 
ably the single biggest challenge that I 
face. It’s not proving to be real easy. 
But then again, that’s why there aren’t 
ten other people out there selling prod- 
ucts like this. 


DDJ: That may change, after this inter- 
view appears. I have to say, you’re ex- 
ploring some issues that I find fascinat- 
ing, as well as challenging. 

BJ: It’s an exciting end of the business. 
The more I talk to people the more I 
realize that this is really cutting-edge 
technology. There’s a very good chance 
that in another five to ten years this kind 
of work is going to be being done all 
over the world, just because the demand 
will be there. 

That, in a nutshell, is where I think 
software development is going, too. 
OOP came along at the right time to 
help us write windows kinds of appli- 
cations, and I think these sorts of lan- 
guages are going to take OOP to the 
next step. It’s the most promising av- 
enue I’ve run across in the literature for 


the kind of language in which you still - 


write algorithms most of the time, so 
you don’t have to constantly be think- 
ing, as in Prolog: How do I get it to do 
A before B? If you want it to do A be- 
fore B you just write A ; B and it does 
it. And if you want it to do it in paral- 
lel, you have to think about it. You pay 
for the complexity you need. | 
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"On sheer audacity for price- 
performance ratio, we loved 


Mix's products" 
Tim Parker - Computer Language 


The High-Performance C Compiler 


rib 


"Power C ts a heavy- 
weight contender - at a 
bantam weight price" 


Stephen Davis 
2 ® Magazine 


Power C 

combines a high-performance C compiler 
with superb documentation, ata price that 
brings chuckles from over 50,000 satisfied 
customers. That's because Power C per- 
forms favorably against compilers costing 
10 times as much. And you can't buy a 
compiler that's more reliable or easier to 






Power C Library Source 
| includes our Power C assembler, 
plus the C and assembly language source code 
to over 450 functions in the Power C library. 
Unlike our competitors, who charge $150.00 
or more for library source code, we've made 
ours very affordable. 


use - at any price. Perhaps that's why 
Power C has won Computer Shopper's 
Best Buy award for three years running. 


* compatible with ANSI C standard 

* integrated Make utility 

* library of over 450 functions 

¢ IEEE software floating point 

* supports 8088/286/386/486 CPU 

* memory resident program support 

* supports 8087/287/387 math chips 
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* allows arrays larger than 64K 
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* 650 page manual with tutorial 






Power C BCD 

Business Math 

includes binary coded decimal floating 
point routines and financial functions to calcu- 
late interest, depreciation, etc.. BCD routines 
are used for dollars and cents calculations to 
eliminate inaccuracies caused by rounding. 


Power C requires DOS 2.0 or later, 320K memory, 
720K disk space. Master C requires DOS 3.0 or 
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Repairs to D-Flat, 
Power C, and C++ 
Compilers 


his, the annual C issue, marks the 
beginning of my fourth year as 
Dr. Dobb's Journal’s C Program- 
ming Columnist. Pardon me if I 
puff out my chest when I say that. Ev- 
ery month I get to write some C code, 
read some books, drag out my soapbox, 
and write for the leading programmer's 
magazine. All during each month I talk 
to other programmers on CompuServe. 
Every now and then I go some place 
such as Boston, New Orleans, or San Fran- 
cisco for a computer show or a program- 
ming symposium. And they call this work. 
This month we will repair some of the 
D-Flat files published in past columns, 
take a look at Power C, the bargain-base- 
ment ANSI.C compiler, and discuss the 
latest C++ compilers for the PC. The dis- 
cussion about C++ is a sneaky way for 
me to plug the second edition of my 
C++ book. It’s traditional for computer 
columnists to use their columns to plug 
their own books. The practice is called 
the “Pournellian Imperative.” 


Fixing D-Flat 
First, you jack up de car. .. 

We're into the fourth installment of 
D-Flat, and already I have some cor- 
rections to make to code previously 
published. The three listings this month 
are new versions of dflat.h (Listing One, 


Al Stevens 


page 174), config.h (Listing Two, page 
175), and window.c (Listing Three, page 
177). These are some of.the files that 
have changed. I will publish the others 
along with some new. code next month. 
This time I'll explain what has changed 
in the system that affects existing code. 

One of my complaints about many 
windows and user interface libraries is 
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that small programs often must carry the 
weight of most of the library in the .EXE 
file, even though the program does not 
need most of the features. I found the 
same thing happening to D-Flat. As I 
added features to the user interface, the 
size of an applications program grew, 
even though the applications code had 
not changed. That was contrary to my 
original intentions for D-Flat, so I had 
to do something about it. I decided to 
let the C preprocessor be the program 
configuration manager. If an application 
does not need a D-Flat feature, you do 
not need to compile the code that sup- 
ports the feature. Inasmuch as code to 
support discrete features might be found 
anywhere in the many D-Flat source 
files, the best way to suppress features 
is with compile-time conditionals. 

Listing Two, config.h, contains some 
new global definitions. They are named 
INCLUDE_SYSTEM_MENUS, INCLUDE __ 
DIALOG_BOXES, and so on. If you do 
not want system menus in your pro- 
gram, for example, you remove the IN- 
CLUDE_SYSTEM_MENUS global defini- 
tion from config.h and recompile the 
D-Flat library. The effect will be that you 
will not be able to move, resize, mini- 
mize, and maximize the windows, but 
the program will be a lot smaller. A sim- 
ple CUA program that uses none of the 
configurable features will be as much 
as OOK smaller than one that uses ev- 
erything. 

By selectively including and exclud- 
ing the global definitions, you can gen- 
erate Or suppress system menus, the 
time-of-day clock display, the multiple 
document interface, scroll bars, shad- 
ows, dialog boxes, the clipboard, mul- 
tiple-line listboxes and editboxes, and 
message logging. This approach means 
that D-Flat is not necessarily a static li- 
brary that you use unchanged for all 


your projects. Instead, you modify the 
library functions to suit the needs of the 
specific application. This practice is con- 


sistent with my original design goals, — 


which include using the compiler rather 
than additional runtime code to add 
window classes, menus, and dialog box- 
es to an application. 

There are a number of other changes 
to window.c, which reflect problems 
I’ve had with clipping and repainting 
when the application has a lot of doc- 
ument windows. The new dflat.h and 
config.h files use the new INCLUDE_ 
global symbols. dflat.h adds some mem- 
bers to the window structure to support 
features that I added to D-Flat in areas 
we haven't discussed yet but need more 
data in the structure. dflat.h has most of 
the prototypes and macros for the win- 
dows class methods, so they too have 
similarly changed and grown. Instead 
of specifying the names of the CLASS 
enum, dflat.h now includes a file named 
class.h, which you will see in a later col- 
umn. This file localizes the definition of 
classes. A similar file named dflatmsg.h 
defines the message codes. I had to split 
these definitions into other header files 
because a new feature needs the class 
and message names in a displayable 
string format. I did not want to maintain 
redundant lists of classes and messages. 

The new feature that uses strings of 
class and message names is a debug aid 
that logs selected D-Flat messages into 
a text file. A later installment describes 
the feature. Ee 

Some of the other source files have 
changed, and I am not going to repub- 
lish them because the changes are mi- 
nor and should have little effect on the 
operation of the program. Anyone who 
wants to use D-Flat should download it 
from CompuServe or TelePath. The lat- 
est version includes a sparse text file 
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that documents the D-Flat functions, 
classes, and messages. 


How to Get D-Flat Now 

The complete source code package for 
D-Flat is on CompuServe in Library 0 of 
the DDJ Forum and on TelePath. Its 
name is something like DFLAT7.ARC, 
where 7 is an integer that represents a 
loosely-assigned version number. Do 
not trust me to always tell you the cor- 
rect name. The sysops might change its 
format. The D-Flat library that you down- 
load is a preliminary version of the 
package, but it works with most fea- 
tures in place. The help system is not 


there, however. I have not designed it 


yet. At present, everything compiles and 
works with Turbo C 2.0, Microsoft C 6.0, 
and Power C 2.0.2. There is a makefile 
for the TC and MSC compilers and a 
project file for Power C. There is one 
example program, the MEMOPAD pro- 
gram. Some readers have ported D-Flat 
to Watcom C and Zortech C++. They re- 
port few problems doing that. Read fur- 
ther to see what I ran into when port- 
ing D-Flat to Power C. If for some 
reason you cannot get to either online 
service, send me a formatted diskette — 
any PC format—and an addressed, 
stamped diskette mailer. A regular enve- 
lope works for 3.5-inch diskettes. Send 


it to me at Dr. Dobb's. Vl send you the 
latest copy of the library. The software 
is free, but if you care to, stick a dollar 
bill in the mailer. I'll give the dollar to 
the local food bank or other charity that 
takes care of homeless or hungry chil- 
dren, and you and I will feel good about 
it. The dollar is, of course, optional, as 
all charitable contributions should be. 
Call it “careware.” 

If you want to discuss D-Flat with me, 
my CompuServe ID is 71101,1262, and 
I monitor the DDJ Forum daily. 


Power C 

If you are looking for a bargain in C 
compilers, check out Power C from MIX 
Software (Richardson, Tex.). For twen- 
ty bucks —the typical cost of a C 
book —you get a respectable book 
about C, but with an ANSI C compiler 
thrown in. Well, actually it’s the other 
way around. The twenty bucks buys the 
compiler. Besides being the reference 
guide for the compiler and library, the 
user’s manual is also a decent C lan- 
guage tutorial. So, take that twenty clams 
you budgeted for a book on C and buy 
a book and a compiler. But wait, there’s 
more. For another ten bucks you can 
get the library source code. Add twen- 
ty bucks more for Power Ctrace, a source 
code debugger. MIX has other packages 


as well. A‘’BCD math package and a 
database toolbox are twenty bucks each. 
These are garage sale prices. 

I wanted to get D-Flat compiled with 
Power C in time for this issue. What bet- 
ter recession-bashing combination than 
a $20 compiler and a free CUA library? 
I uncovered a few twists in the way 
Power C does things, however, and I'll 
tell you about them here. 

ANSI C allows you to call a function 
through a pointer without using the 
pointer dereferencing notation. The call 
looks like any other function call. Pow- 
er C does not allow this convention if 
the pointer is in a structure. No prob- 
lem; I put the parentheses and the as- 
terisk into the call. 

Power C does not allow you to ini- © 


tialize a structure with the assignment _ 


of another structure such as this: 
struct rect rcl = rc2; 


D-Flat does that all over the place, so I 
changed the initializations to assign- 
ments like this: 


struct rect rcl; 
rcl = rc2,; 


The interrupt keyword in a Power C | 
function pointer must be exactly the 
way Turbo C defined it and not the way 
that Microsoft C requires it. That re- 


UBJEG T-ORIENTED EDUCATION 
THE WAITE GROUP’S C-/O0P LIBRARY — 


Now The Waite Group brings you the BEST 
— quality hooks on C++, Object-Oriented 
- Programming, Fractals, and Turbo Pascal. 


C++ PRIMER Pus by eaten Prata teaches “generic” AT&T C++ 2.0, in the same style as his best-seller New C Primer PLus 
(400, 000 — Perfect for Unix and Dos, 600 pages, $26.95 plus oe 
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Easier 


With PowerCell, Developing C 
Applications Just Got Easier. 
PowerCell is the spreadsheet engine 
that goes beyond so-called "spread- 
sheet compilers" because it offers all 
the features of a complete spreadsheet 
program to your end users. Now you 
can create stand alone spreadsheet 
programs or integrate spreadsheet 
capabilities into C applications. You 
can also use PowerCell with your 
db_VISTA Database Management 
System and give your end users an 
application with incredible performance 
and a spreadsheet interface. 


PowerCell 


The Spreadsheet Library for 
Professional C Developers 





@functions, including financial and statistical functions. Keystroke 





Raima Corporation 3245 146th Place S.E., Bellevue, WA 98007 USA 


PowerCell Features: Support for all standartd spreadsheet menu selections except graphics. Full complement of spread-sheet ) 
ASCII file formats supported. Microsoft C and Borland C compilers. 
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The PowerCell Advantage: 

With PowerCell, you can modify the 
table-driven menu system to provide 
keystroke compatibility with products 
like Lotus 1-2-3, Quattro, and Excel. 
And with source code, PowerCell is 
infinitely customizable - you can add 
features to expand your application 
and remove features to save space or 
restrict your end users. PowerCell 
supports Pharlap's DOS extender, so 


you can build even bigger applications. 






With PowerCell, 
the pull-down 

—# menus are 

= completely 
customizable. 





atible with most popular spreadsheets. WKS WK1, DBF, 
source code is available. No royalties. Supports: MS-DOS. 





(206)747-5570 Telex: 6503018237 MCI UW 
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How The C And 
PowerCell 
Combination 
Adds Up to Great 
Spreadsheet 
Applications. 


PowerCell 
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Spreadsheet 
Application 


With PowerCell, it's 
easy to link spreadsheet 
functionality into your 
C applications. 


Now Have It All With PowerCell 
Fast development time for you and 
fast training for your end users—plus 
the flexibility to customize your 
applications. It's easy with 
PowerCell. 


Call 1-800-db-RAIMA 
‘ (1-800-327-2462) 
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Create ultra compact] 
and fast TSRs with 
full DOS access! 


The most powerful tool available 
for creating feature packed, tiny 
TSRs in C or assembler. Works 
with C compilers from Microsoft, 
Borland, Watcom and Zortec. 









CodeRunneR Features 


° Auto recovery of Initialization 

Code and Data 

All functions hand crafted highly 
optimized assembly language routines 
Function Level Granular 

Create MultiTasking programs 
Scheduler supports > 10,000 events 
Assess TSRs via up to 256, dynamic 
hot-keys or interrupts 

BCD Floating Point Library 

Source for TSRs: Help, Programmers 
Calculator, Business Calculator, ASCII/ 
Color, Date/Alarm & Trap/Debug 


CodeRunneR $149.00 


Call our BBS for FREE sample 
TSRs, benchmarks & support. See 
for yourself how powerful and 
tiny CodeRunneR TSRs can be. 
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PDK#3 


Spawn (EXEC) large programs from 
a hosting TSR (1.5 KBytes) 

e Page foreground application or 
hosting TSR to LIM*or Disk 
Pop-up TSRs over graphics screens 
Save & Restore COM ports, Mouse 
and Math Co-Processor states. 

e Turn ANY existing program into 

a TSR (without source code -- 
even Lotus 1-2-3)! *needs PDK #1 


PDK#1 


e COM: Ultra fast interrupt driven 
multichannel COM library with 
background file transfers 

e LIM: Transparently move TSR code 
&/or data to LIM 

e Flexible printer SPOOLer 

e Program registration and 
protection functions — 


PDK#1&3 $99.00 each 


NO ROYALTIES. MONEY BACK 
offer and source code available. 
Order today by Phone, FAX or BBS. 
MasterCard, VISA & AMEX accepted. 
liMicrosystems Software, Inc.” 
600 Worcester Rd. Framingham, MA 01701 
(508) 626-8511 FAX: (508) 626-8515 


CodeRunneR is’a Registered Trademark of Microsystems 
Software, 1-2-3 is a Trademark of Lotus. 
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(continued from page 150) 
quired a compile-time conditional. 

I had some problems with the move- 
data function, replaced calls to it with 
a memcpy function call, and got past it. 
The Power C FP_SEG and FP_OFF mac- 
ros are fashioned after the Microsoft C 
convention rather than the Turbo C con- 
vention, which D-Flat uses, so an ad- 
justment fixed that. 3 

At last the D-Flat example MEMOPAD 
program was loading and displaying its 
application window. The menus would 
pop up, but had no text in them, and 
the program did not properly load text 
files that I named on the command line. 
When I exited the program, DOS was 
dinged up. Time to fire up Power Ctrace, 
the MIX debugger. 

First, I had to recompile everything 
with debugging turned on. After the 
compile, about 3 Mbytes of .TRC files 
were left on my disk. They are built by 
the compiler and used by the linker to 
generate a .SYM file for the Ctrace de- 
bugger. You can delete them after the 
compile, but be forewarned that you 
will need room for them while the com- 
pile is underway. I kept running out of 
disk space until I found out what was 
going on. 

I run DOS 5.0 with everything in up- 
per memory, and there were 605,920 
bytes free. The MEMOPAD.EXE file 
compiled by Power C with debug in- 
formation is 184,672 bytes long. The 
Power Ctrace program would not load 
the MEMOPAD program, saying that 
there was not enough memory. Earlier 
versions of DOS used a bunch of low- 
er memory, and applications programs 
loaded well above the 64K boundary. 
Many programs, it turned out, would 
not run well if they started below 64K. 
I thought that Ctrace might be one of 
them, so I rebooted with DOS loaded 
low. Then there were a paltry 554,848 
bytes available for applications. Ctrace 
still said there was not enough memo- 
ry. If that ain’t enough memory, Hoss, 
then Ctrace is one hungry memory hog. 

A call to MIX’s tech support revealed 
that Ctrace limits the symbol table to 
64K. Apparently D-Flat has more sym- 
bols than will fit in the table. It’s not 
that I don’t have enough memory — 
Ctrace just doesn’t use enough of it. The 
MIX tech support person told me about 
a feature that disables the tracing of se- 
lected symbols, but to do that you need 
to get the program loaded in the first 
place, which I cannot do. The alterna- 
tive is to compile most of the program 
without debugging information and 


compile the suspected modules with it, 


keeping the symbol table size down. A 
library such as D-Flat is an integrated 
whole. In a message-driven architecture 


with inherited window classes, every 
message passes through most of the 
code. A bug could be anywhere. In des- 
peration, I reverted to the tried and true 
printf debugging technique, which us- 
es printf calls in the code to tell you 
where you are going and what the vari- 
ables look like. 

The next thing I learned was that the 
Power C /nsplit and fnmerge functions 
do not work the way the Turbo C ones 


do. You pass the Turbo C functions — 


NULL pointers to tell it not to split or 
merge a component of the file path and 
name. The Power C functions do dam- 
age to memory when you do that. You 
must pass pointers to zero-length strings 
to fnmerge and pass /nsplit pointers to 
character arrays that you are not going 
to use. | 
Power C emulates Microsoft C in some 
areas and Turbo C in others. Both of the 
big guys have unique extensions to the 
language and library to support the PC- 
and MS-DOS platform. Power C mixes 
the two sets of extensions. In some cas- 
es, the emulated extensions do not work 
exactly like the borrowed ones. , 
The last bug was tough, and it points 
to a serious departure from convention 
in the code compiled by Power C. 
Power C casts far pointers to longs 
differently than the other compilers. The 
D-Flat message-passing protocols re- 
semble Windows’ parameter conven- 
tions in that generic long integers carry 
the parameters for the messages. To pass 
a pointer as an argument, I cast it to a 
PARAM, which is a typedef for a long. 
Power C doesn’t like that cast, though. 
It converts the cast value into an inte- 
ger that has the value of the pointer’s 
offset, but does not include its segment. 
The most significant 16 bits of the cast 
value are zero. I had to change all those 
pointer casts to calls to a function that 
converts the pointer correctly to a long. 
It took me about three hours to port 
the original D-Flat code from Turbo C 
to Microsoft C. I worked on the Power 
C port for three days before I finally got 
it working, primarily because I could 
not use the debugger. Although Power 
C is a good entry-level ANSI C compil- 
er, I do not consider it to be serious 
competition as a software development 
tool because you must limit it to the de- 
velopment of small programs. Howev- 
er, there is no better bargain for the bud- 
get-minded student of C. 


The State of C++ 

Last year I wrote a bouk called Teach 
Yourself C++, a C programmer’s C++ tu- 
torial with about 130 example programs. 
The code in the examples used C++ 2.0 
conventions, and I used Zortech_-C++, 
and a beta of Turbo C++ to get them 
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= Develop on over 100 platforms — without reprogramming! 

Forget the tedious, time consuming and expensive reprogram- 
ming required to move from one environment to another. With 
c-tree Plus” you don't change source code at all — just recompile, 
link and you're running on platforms ranging from Cray supercom- 
puters to Zenith laptops! Over 100 environments are supported, 
including: #& Windows 3 @ DOS m UNIX @ OS/2 @ VAX/VMS 
m@ Mac @ SUN @ RS-6000 

Forget byte order, memory model, integer size or data alignment 
hassles — c-tree Plus manages it all automatically, regardless of 
processor architecture. And c-tree Plus even provides a utility to port 
your pre-existing data files in place. 


m@ Whether you need single, multi-user, client/server or LAN 
configurations, c-tree Plus supports them all! 

Now you don't have to make a choice between configurations — 
c-tree Plus supports them all. The same application can use c-tree 
Plus as a powerful data management engine or as a client front-end 
to the FairCom Servers. 


= Put the latest data management technology to work in your 
applications! 
Outstanding new features make c-tree Plus the developer's 

“product of choice:’ Features include: m True transaction processing* 

@ Superfiles m@ Resources m Full ANSI-standard SOL functionality” 

@ Batched operations m Ultra-high speed data & index cache 

@ Row & key level locking m FREE FairCom® Server (Developer's 

Version) m No run-time royalties m Full source code m Extensive 

tech support. 
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Timpani vibration mode Jz cos(20) 


New PC Version! 


Rewritten code uses pro- 
prietary overlay driver 
technology and adds 
new features: 


im Shaded contour plots 


mC olor PostScript® and 
image EPS support 


im EXport HPGL/2 and TIFF 
files 


im Use TIGA, DGIS, & 8514 
im Simultaneous plots 

i” European characters 

i” Polar contour plots 

” Error function plots 

te Color separations 

= More complete control 


™286-Extender version 
runs.in protected mode 





“All of the C language rou- 
tines you need to write an 
impressive scientific graph- 
ing program of your own. 
Highly recommended.” 

— PC Magazine 


scientific Endeavors 
508 N. Kentucky Street 
Kingston, TN 37763 
(615) 376-4146 
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(continued from page 152) 

running. Before the book went to press, 
I ran the exercises through Comeau C++ 
and Guidelines C++, which are ports of 
the AT&T CFRONT C++ translator pro- 
gram. Some of the examples compiled 
with Intek C++, a 386-only port of the 
CFRONT program, but 1.2 was the on- 
ly version I had of that compiler. 

Since the book came out, AT&T re- 
leased its C++, Version 2.1 specification. 
In addition, I got a lot of letters with 
comments and questions about the 
book. To a writer, such events call for 
a second edition, which I have com- 
pleted and the book should be in the 
stores by the time you read this column. 
The book is about generic C++, but be- 
cause I use a 386 MS-DOS machine, I 
decided to borrow from the experience 
to report here on contemporary C++ 
compilers for the PC. 

These are not reviews of the compil- 
ers. Although I used all of them to com- 
pile 130 small programs, that experience 
alone is not sufficient to allow me to 
compare their true performance. I will 
tell you about some problems I had, but 
these problems are not necessarily typ- 
ical. They spring from my need to be 
as compatible with as many compilers 
as possible. C++ is not as well-defined 
or well-understood as C. You can ex- 
pect the compilers to depart from one 
another and from what is thought to be 
the accepted definition. ANSI is work- 
ing on a standard definition, but that 
will take a while. 


Dropouts 

Guidelines went out of the C++ com- 
piler business, so there is no longer a 
Guidelines C++. Intek did not return my 
call, so I could not upgrade to their lat- 
est offering —or even tell you if they 
still have one. 


Borland C++ 2.0 

Borland (Scotts Valley, Calif.) has repack- 
aged their C++ with support for Win- 
dows 3 programming, but the compil- 
er supports only the 2.0 specification. 
Borland C++ is a compiler implemen- 
tation of C++ 2.0 that was originally 
packaged as Turbo C++ 1.0, but Bor- 
land has since modified their C++ to 
align their version number with the 
AT&T release and to add support for 
Windows programming. 

I had no problems with Borland C++, 
primarily because I used a beta of the 
predecessor, Turbo C++, to develop the 
original 130 programs. The only ex- 
ceptions were with the new features that 
C++ 2.1 added to the language. There 
are several exercises in the book that 
demonstrate 2.1 behavior and that do 
not compile with Borland C++ because 


the compiler -is for version 2.0. That's 
not a problem; that’s just how things are. 


Comeau C++ 

Comeau C++ (Comeau Computing, 
Richmond Hill, N.Y.) upgraded to ver- 
sion 2.1 some time ago. Comeau C++ 
is a CFRONT port, which means that it 
is an adaptation of the AT&T C++ 2.1 
translator. The compiler comes in ver- 
sions that run under MS-DOS and Unix. 
The CFRONT program reads your C++ 
source code and translates it into C code 
that must be compiled by a C compil- 
er. You will need a copy of Microsoft C 
to compile the translated output from 
Comeau C++, 

The close association of Comeau C++ 
with the Microsoft C compiler caused 
some of my problems. The CFRONT 
program has a command line switch to 
indicate that the code uses ANSI con- 
ventions rather than K&R conventions. 
When you use that switch, CFRONT 
emits some code that Microsoft C does 
not compile. When you do not use the 
switch, the ANSI code does not pass the 
CFRONT syntax check. The code that 
CFRONT emits is correct ANSI C, but 
the Microsoft compiler doesn’t accept 
it. This problem was in MSC prior to the 
formal acceptance of the ANSI C spec- 
ification. Microsoft released MSC 6.0 af- 
ter ANSI published the standard C def- 
inition, but Microsoft did not correct the 
problem. 

If you want to use your PC to devel- 
op C++ code that you will port to a Unix 
CFRONT environment, or if you want 
to port some Unix C++ programs to MS- 
DOS, this is the compiler to get. 


TopSpeed C++ 

TopSpeed C++ (Jensen and Partners, 
Mountain View, Calif.) is a compiler that 
implements C++, Version 2.1. The com- 
piler is one part of a multiple-language 
product that includes C, C++, Pascal, and 
Modula-2. The languages share a com- 
mon code generator and an integrated 
development environment. I found a few 
differences in the defaults for formatted 
stream Output between TopSpeed C++ 
and the others. Nonetheless, most of the 
exercises compiled and ran without prob- 
lems. I hit a few snags in the features 
that were in the C++ 2.0 specification 
and that 2.1 does not include. TopSpeed 
C++ does not have a _new_handler 
pointer that you can initialize, for ex- — 
ample. It also does not permit the C++ 
syntax that creates anonymous, hidden 
variables such as when you initialize a 
reference with a constant. 


Zortech C++ 
Zortech C++ (Zortech, Arlington, Mass.) 
is version 2.1, but the version number 


Dr. Dobb’s Journal, August 1991 


eee eT La | ae eS Ne 





See ee Ne a eT NE OEE SOS PSALMS BE NN REALE eM SEES 


eS OS Mee ee eee ee D Sy RI Soe Le SS a Se ee ONE ee ae SE ee eh Oe Ee a oe ee Se eee ee eS ee | a fe Re PE e ee eee eg Sa 


eh a a RR Se Ne SE Re ae” SIREN TS IE ERS ee RY Re EE SS See Sen Renee See eee es See Ce ee eee 


ee eS ee ee ee a ES ae ie eae 


is their own, not an attempt to align with 
AT&T’s 2.1. The compiler is closer to 


AT&T's 2.0 specification, although there 


are some differences even between 
AT&T 2.0.and Zortech 2.1. For exam- 
ple, Zortech’s input/output stream class- 
es and libraries are different. Rather than 
use the AT&T iostream library that all 
the other compilers use, Zortech de- 
cided to design their own improvements 
to the old C++ 1.2 iostreams. There is 
nothing wrong with that, I suppose, but 
I had to tell my readers to skip the en- 
tire chapter on iostreams if they use 
Zortech. It was either that or write a 
Zortech-specific chapter on iostreams, 
and I did not want to do that. 


Undocumented DOS 
If you write programs that extract the 
last ounce of performance from the MS- 


DOS platform, you’ve learned that you 
need more functions and internal data 
structures than the ones that Microsoft 
specifies in their Technical Reference 
Manual and in the officially-sanctioned 
books from Microsoft Press. There is a 
body of knowledge, collected in the un- 
derground and growing daily, that iden- 
tifies the undocumented characteristics 
of DOS that you can.use to do things 
that DOS does not support. The classic 
example is found in all the undocu- 
mented Mouseketeer machinations of 
the TSR memory-resident program. 
Undocumented DOS (Addison-Wes- 
ley, Reading, Mass.), by Andrew Schul- 
man, Raymond Michels, Jim Kyle, Tim 
Paterson, David Maxey, Ralf Brown, and 
the entire cast of “Hello, Dolly,” is the 
programmer’s equivalent of a Kitty Kel- 
ly unauthorized biography. (Celebrity 
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PCYACC Version 3.0 is a complete 
Language Development Environment that 
generates ANSI C source code from input 
Language Description Grammars for 
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Languages, Language Translators, Syntax 
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analysis, adherence to specifications, 
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CodeCheck Version 3.0 is a programmable 
tool for analyzing all C and C+ +-source 
code on a file or project basis. CodeCheck is 
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ANSIC and C++ (Microsoft, Metaware, 
Borland, Zortech, Intel, and GNU). 
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trivia: Ms. Kelly was a drummer in a 
rock band in the ’60s.) Undocumented 
DOS tells you all the good stuff about 
how Microsoft programmers get things 
to work — when they do — because 
they know what DOS’s insides look like. 
Insider coding. This is an essential book 
for a PC programmer. There is a lot of C 
and assembly language code, and the 
book comes with a diskette that has ali 
the code and the compiled programs. Un- 
documented DOS is the most informative 
DOS programming book I have read. 
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supports MVS, DOS, Amiga, V7, SVr3, 
SVID, POSIX, and X3J11 validation. 

















PCYACC 
PROFESSIONAL PERSONAL 


DOS $495 $249 
OS/2 $695 
UNIX $995 
MACYACC 

$495 $249 
CodeCheck 
DOS $495 — $249 
MAC $495 
OS/2 $695 
UNIX $995 


‘ Educational discounts are available. 


30 day Money back guarantee! Free AIR Shipping anywhere in the world! 





Dr. Dobb's Journal, August 1991 


To Order Call 1 -800-347-521 a 


ABRAXAS" 


Software, Inc. 


7033 SW Macadam Ave., Portland, Oregon 97219 USA 


TEL (503) 244-5253 - FAX (503) 244-8375 : AppleLink D2205 


CIRCLE NO. 75 ON READER SERVICE CARD 


(155 


WINDOWS DEVELOPER 








rage tin I re 
| V \e ‘BP+@88C1 unsigned int ins 
,0" on oo | OBE unsigned int hPre @ 
3 cS. 0) | +(BP4 lchar far * ipl 
Je \Saee' \N 
8 WoO 289 Se 
we ow Ni iS |6@: | , | 
ue ne ar /  _ Invalidate Rect ¢ Ge | pasneaeeaeeeeenaneneeeeEenemeneeneeeens 
9 =. | af <thPreylastance) | 
10 Se af ¢? CIT ese 
\ return (PALSE); 


“f* Perform initializations that apply to a epecific instance *- 


if ber nmabage > > edge nCnmd&$ how>> 
return CFALSE> 












No More 
flip/swap/flash 


* RUNS IN A WINDOW i ee 


Run CodeView In A Window 


The two monitor problem has been an irritation for Windows program- 
mers for a long time. Now there's a solution from Nu-Mega Technologies 
called CV/1. 


CV/1 maps the CodeView debugger screen into a window on your 
primary display. This lets you debug your windows program on a single 
monitor system in a comfortable user friendly way. 


| CV/1 comes with a Windows based install utility for totally automatic 
installation. There is no learning curve; you simply choose the CV/1 icon 
instead of the CodeView icon. 


The only requirements for CV/1 are the Windows SDK and Windows 
running in the 386™ enhanced mode. 
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e NO ANNOYING FLASH WHILE 
SWITCHING BETWEEN 
APPLICATION & DEBUGGER 


Po NR ne ie eo ee 


q CV/1 -- $129 
| Call TODAY, HAVE IT TOMORROW‘ 
(603) 888-2386 


: Windows is a registered 
trademark of 
Microsoft Corporation. 
CV/1, Soft-ICE, MagicCV, and 
Bounds Checker are trademarks of 
p eee INC 


Nu-Mega Technologies, Inc. 
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Chimney-Pipe 
Interruptions 


r. Horny is back. He an- 
nounced his return in spec- 
tacular style one recent 
weekday night at 3 a.m. or 
so, by landing on the perfo- 
rated metal spark-catcher cap that en- 
closes the top of the master-bedroom 
fireplace chimney pipe, and proceed- 
ing to do what owls do for reasons best 
known to themselves: HOO-HOO! 
HOOQQOQOQOOQOQOQOQOOOO! 

It’s not for nothing that owls can be 
heard a long way off, and a chimney 
pipe can do wonders in conducting 
sound waves. Carol and I sat bolt up- 
right in bed, sure the Martians were in- 
vading. Mr. Byte sailed off his spot at 
the foot of the bed and ran to the fire- 
place, determined to defend his home 
from hostile aliens, and made his most 
fearsome noises right into the hearth 
until I hauled him bodily back to bed. 

That was that. Sound amplifies both 
ways through a chimney pipe. We’ve 
heard Mr. Horny since then, at consid- 
erably greater distance. 


Living Better Asynchronously 

Sometimes I think I would define life 
as a series of interruptions, from owls 
and other things. We set up a sequen- 
tial itinerary for ourselves, begin to pur- 


sue it, and then the phone rings. Or the 


Jett Duntemann KG7JF 


oven timer beeps. Or the dog throws 
up on the brand new living room rug. 
We trudge through life, answering 
phones, burning roasts, and wiping up 
dog urp, thinking sequentially while 
struggling against the universe’s insis- 
tence on operating asynchronously. 

Should we expect our machines to 
operate any differently? 
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I sometimes see us, the structured 
programming gang, as living in a fool’s 
paradise. We start our programs at the 
top, run them through to the bottom, 
and assume nothing untoward happens 
along the way. But in fact, the C and 
assembler crazies have almost totally 
masked reality for us: Interruptions are 
happening all the time, from clocks and 
disks and printers and modems and net- 
work controllers and numerous other 
things. The BIOS, operating system, and 
installable device drivers do their work 
well, so well that we can sometimes 
squint a little and forget that such things 
as machine interrupts even exist. 

Nonetheless, they do. They’re essen- 
tial. I think, moreover, that we should 
understand how interrupts work, and 
be ready to write our own interrupt han- 
dlers when the occasion arises. 


A Tap on the Shoulder 

The nature of The Box That Follows a 
Plan is to begin at the top of a sequence 
of machine instructions and follow them 
sequentially to their end, making branch- 
es and jumps in a rational manner. An 
interrupt is nothing more than a tap on 
the CPU’s shoulder, with a directive to 
hold that thought, and duck over here 
for a second to take care of something 
else right now. 

Some interrupts happen at predictable 
times (the clock tick interrupt being the 
best example), but the real hallmark of 
interrupts is that they happen when they 
happen, generally on no schedule and 
without warning. I can sit here and stare 
at the screen doing nothing for as long 
as I choose. But at some point (at least 
if I ever expect to make a nickel writ- 


ing again) I have to reach out and press. 


a key. Bang/ There’s an interrupt. The 
machine must set aside what it’s doing 
for a moment and go fetch the code for 


the key I just pressed. It does some nec- 
essary processing on that key (more 
than you might imagine, although that’s 
another story) before putting a key code © 
in the keyboard buffer and taking up 
its previous work once more. 

Like everything else connected with 
the 86-family Intel CPU product line, in- 
terrupts have evolved over time. What 
I’m going to describe here are things as 
they exist in the 8086/8088 CPU itself, 
without getting into the enhancements 
specific to the 286, 386, and 486. Per- 
haps another time. 

The 8086 has the machinery to han- 
dle as many as 256 different interrupts. 
A handful of them perform special ser- 
vices baked right into the CPU chip, and 
a few more serve the PC hardware and 
operating environment, but most lie sim- 
ply unused. Each of those 256 different 
interrupts represent a possible “some- 
thing, else” for the CPU to do when it 
receives its tap on the shoulder. We'll 
come back to the machinery of the 
shoulder tap itself. It’s easier to begin | 
by understanding what happens when 
an interrupt is received by the CPU. 


The Interrupt Vector Table 
Interrupts are numbered from 0 to 255. 
Regardless of where an interrupt comes 
from, it has a number in that range. 
Down in the very lowest area of the 
8086 memory address space is a table 
of 256 4-byte slots for containing ad- 
dresses, one address for each of the 256 
possible interrupts. This table is called 
the interrupt vector table, and is 1024 
bytes in size, located in the very first 
1024 bytes of memory. Most of the slots 
in the interrupt vector table are empty 
and consist of 4 bytes of zeros. A valid 
address in the table is called an inter- 
rupt vector. 

The vectors in the table are full 32- 
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bit addresses, consisting of a 16-bit seg- 
ment and a 16-bit offset. The offset por- 
tion is first dower) in memory, followed 
by the segment portion. I’ve sketched 
out the order of the addresses and their 
component parts in Figure 1. You don’t 
need to memorize these things; most of 
the time, you’ll be dealing with inter- 
rupt vectors as indivisible wholes. 

As I said, most of the slots in the in- 
terrupt vector table are zeroed out and 
considered empty. At power-up time 
and occasionally later, DOS, the BIOS, 
a driver, or an application will place a 
valid vector in the vector table. “Vector” 
really means “pointer,” and that’s a good 
way to conceptualize the vectors placed 


in the interrupt vector table. They are 


‘pointers to little code sequences locat- 


.ed somewhere else in memory. These 


code sequences are called interrupt ser- 

vice routines ISRs), and are the “some- 

thing else” that the CPU must do when 
n interrupt occurs. 


a 
6 Something to keep in mind is that any 


interrupt service routine can always be 
located, no matter where it actually is 


“in memory, simply by knowing the in- 


terrupt number it serves. The address 
of the ISR that serves interrupt 6 exists 
in segment 0, at an offset of 6 x 4, or 


~ 24 (hexadecimal $18). The ISR itself is 


not there, but the ISR’s address is. The 
CPU simply has to multiply an inter- 
rupt’s number by four (which is an easy 
thing for the CPU to do, since multiplies 
by powers of two are simply bit-shifts) 
and jump to the address it finds at the 
resulting offset from 0. It will then be 
executing the interrupt’s ISR. 


, Hold Everything 
” From a height then, what happens when 


‘the CPU receives interrupt N is this: It 
saves the bare essentials of what it is 
currently executing, locates the address 
of interrupt N, and then branches to the 
code existing at that address. At that 
point it is executing the interrupt’s ISR. 

What gets saved, and how? Remark- 
ably, the CPU only saves two things 
when an interrupt happens: The ma- 
chine flags and the 32-bit instruction 
‘pointer. The machine flags comprise a 
16-bit word containing information about 
actions in progress, such as whether the 


Bit 7 Bit 6 Bit 5 Bit 4 


last arithmetic operation resulted in a 
carry or a borrow, whether the last op- 
eration forced the accumulator (AX) reg- 
ister to 0, and so on. In a sense, the 
flags retain the essential what of the 
CPU’s previous work. Next, the CPU 
saves the where of its previous work, 
by saving the address of the instruction 
it was about to execute when the in- 
terrupt came in. This address consists 
of the Code Segment register (CS) and 


The S086 bas the 
machinery to handle 
as many ds 256 
different interrupts 


the Instruction Pointer register (IP). The 
CPU does not automatically save the 
contents of the machine registers like 
AX, DX, BP, or SI. If the registers are to 
be saved, the ISR itself must save them. 
Obviously, if the ISR leaves the regis- 
ters alone, it needn’t save them. How- 
ever, if it intends to reuse them or oth- 
erwise change values that exist in them, 
it had better save them, and in most 
cases ISRs do save one or more regis- 
ters that they intend to use. 

The CPU saves what it saves by push- 
ing it on the system stack. The stack is 
nothing more than an area of memory 
addressed by two registers, SS and SP. 
SS and SP are initially set up by DOS, 
and as Pascal programmers you should 
only change them in dire need. Alter- 
ing the stack incorrectly (or unsuccess- 
fully) is the fastest road I can think of 
to a Big Red Switch crash. 

The stack is an interesting creature 
that I won't fully describe here. The 
essence of a stack is that it is a last-in, 
first-out mechanism. The last. thing 
pushed onto the stack is the first thing 
popped off. In other words, things come 
off the stack in the reverse order that 
they go on. For example, the CPU push- 
es the flags on the stack first, followed 
by CS, and then IP. When it retrieves 


Bit 3 Bit 2 Bit 1 





or | non 08 wot 


Mask values: ‘ 
$80 $40 $20 $10 
COM1: 


es | noe | mor 


$08 $04 $02 
CON2: 





Figure 1: The structure of the interrupt vector table 
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them later on, it will first pop IP, then 
CS, and finally the flags. 

To recap: When interrupt N taps the 
CPU on the shoulder, the CPU first push- 
es the flags on the stack, then pushes 
CS, followed by IP. The CPU then c¢al- 
culates the address of interrupt vector 
N, reads the interrupt vector from low 
memory, and places the vector into CS 
and IP. 

As a result, the next instruction the 
CPU fetches for execution is the first in- 
struction of interrupt N’s interrupt ser- 
vice routine. The CPU is then off and 
running on the interrupt. 

Coming Home Again 

As I mentioned earlier, if the ISR intends 
to use any of the registers, it must push 
their current values onto the stack, so 
it can restore those values before re- 
turning control to what the CPU was 
doing before the interrupt. 

After saving any registers it intends to 
use, the ISR does what it must. As [ll 
say again and again, it had better be © 
quick. Creating complex ISRs that take 
a long time to execute is asking for trou- 
ble. There are also special considera- 
tions you have to keep in mind when 
writing ISRs in order to stay out of var- 
ious kinds of trouble. I'll get into these 
later on. (Can you say, “reentrancy?”) 

When the ISR is finished with its spe- 
cific tasks, it must return control grace- 
fully to whatever work was in progress 
when the interrupt happened. The ad- 
vice, “pop whatever you push” is ap- 
plicable here. Anything the ISR pushed 
onto the stack must be popped off 
again. If the ISR pushed three machine 
registers onto the stack, it had better pop 
three registers back off again, or you'll 
hear the crash in the next county. 

The final switch from ISR back to or- 
dinary application code is handled by 
a special machine instruction called an 
interrupt return instruction, or IRET. 
The IRET pops the IP value from the 
stack back into the CPU’s internal in- 
struction pointer register, pops the CS 
value back into the code segment reg- 
ister, and finally restores the prior state 
of the various machine flags by pop- 
ping the flags’ values from the stack in- 
to the flags themselves. 

At this point (assuming the ISR didn’t 
“trash” any registers or memory that the 
code-in-progress was using) things should 
be, just as they were before the interrupt 
happened, and work (like life) goes on — 
at least until the next interrupt. ' 


Software Interrupts 7 
There are some minor details that we'll 
come back to, but in general, all inter- 
rupts are handled pretty much that way. 
And so we return to the question of 
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where interrupts actually come from; 
that is, who taps the CPU’s shoulder to 
kick off an interrupt? 

Interrupts can come from two differ- 
ent places: software and hardware. Soft- 
ware interrupts are intriguing and [ll 
spend some time on them in a future col- 
umn. But quite briefly, you can kick off 
an interrupt just by using a special ma- 
chine instruction created for that purpose. 
Executing an INT N instruction forces 
the CPU to go through the interrupt pro- 
cess just described for interrupt N. 

Far trickier, but more useful in many 
ways are interrupts generated by the 
hardware. The CPU chip has a pin ded- 
icated to interrupt generation. Ordinar- 
ily, this pin is held idle at a logic 0. A 
hardware gadget of some sort may be 
attached to the interrupt pin, and when 
that gadget even momentarily raises the 
level on the interrupt pin to logic 1, a 
hardware interrupt occurs, and once 
again the sequence described above 
happens. 


Sharing a Pin 
So conceptually, interrupts are pretty 
simple. You can almost consider them 
subroutines whose addresses can be 
found in.a table at a predictable loca- 
tion, and for software interrupts that’s 
pretty close to the whole truth. 
Hardware interrupts, however, get 


complicated for this reason: There is on- 
ly one general-purpose interrupt pin on 
the CPU chip. As soon as you want to 
connect more than one interrupt-capa- 
ble peripheral to the PC, you have to 
consider how to keep the peripherals 
from fighting over that one pin. 

It’s not enough to put some sort of 
eight-input OR-gate on the interrupt pin 
and then give everybody an input to 
the OR-gate. That allows up to eight 
people to knock, but the CPU still has 
no way of knowing who’s there. (Not 
to mention the problem of what to do 
when two or three people knock at 


Vector# — Vector offset from segment 0 
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once....) This problem requires anoth- 
er chip to solve, and that chip is the 
8259 Programmable Interrupt Controller 
(PIC) device manufactured by Intel, Na- 
tional Semiconductor, and other firms. 


The 8259 has three jobs to do: 


1. It allows up to eight devices to ac- 
cess the CPU’s interrupt pin and it tells 
the CPU which device is interrupting. 

2. It allows the programmer to “mask 
out” any of those eight interrupts, so that 
when desired, the masked interrupts will 
not be passed through to the CPU. 

3. It handles the problem of what to 


Standard use 


Divide by 0 (internal) 
Single step (internal) 
Non-Maskable Interrupt 
Breakpoint interrupt 
Divide overflow 
Print screen 
IBM. Reserved 
IBM Reserved 
IRQO Timer tick 
IRQ1 Keyboard 
IRQ2 AT 8259 pass-through 
IRQ3 COM2: 
IRQ4 COM1: 
IRQ5 Hard disk controller 
IRQ6 Diskette controller | 
|IRQ7 Parallel port 





Table 1: The first 16 interrupt vectors and their uses 





sync Professional is a full- 
featured object-oriented commu- 
nications toolkit that enables you to 
build powerful async applications 
faster and easier. Async erecta 
has all the stan- 
dard features 
you'd expect of 
an async toolbox. 
Plus the robust 
ZMODEM transfer 
protocol, data 
decompression 
tools, and both 
object-oriented and proce- 
dural calling interfaces. 

You get m interrupt 
driven buffered I/O to 115K 
baud m» ZMoODEM, Kermit, XMODEM,. 
YMODEM protocols m Zip and LzH data 
decompression m automatic flow 
control—Xon/Xorr, Cts/Rts, Dtr/Dsr 
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UarT support # hardware interrupt 
sharing on PS/2 m ANsI terminal 
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Hot Example Programs Too! 
Demo programs include a 
powerful multi-window comm 
program with menus, text 
editor, and mouse support, built 
= using Object Professional, and 
= a simple comm program that 
depends on no other products. 


Powerful Async Debugging 


Event logging and tracing op- 
tions create a time-stamped 
audit trail of all async 
interrupts and charac- 
ters sent or received. 
You'll debug your 
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application faster without the need 
for special debugging hardware. 


Full Source, Documentation 


Async Professional includes com- 
plete documentation, pop-up help, 
free technical support on Compu- 
Serve and by telephone direct from 
the authors. You get full source code 
and pay no royalties. 


6 Async Professional is an excellent 
series of routines...and very complete. 
It's better than anything I've seen in 

Pascal, C or assembler.” 
Richard Wilkes, Author, TAPCIS 


Async Professional, 
only $139. 
Call toll-free to order. 
1-800-333-4160 


9AM-SPM MST Monday through Friday, USA & Canada. 
For more information call (719) 260-6641, fax to 
(719) 260-7151, or send mail to CompuServe ID 76004,261 1 


TurboPower Software PO Box 49009 Colorado Springs, CO 80949-9009 
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Y Data Line Monitor - Full featured 
RS-232 "Datascope" runs on your 
PC or Laptop. 


Y Monitor, Capture Data in ASCII, 


EBCDIC, BAUDOT to 115,200 
baud. 


/ Capture to buffer or file, Review, 
String Search 

/ Unlimited Triggers on Modem 
Status, Data Patterns, including 
wildcards 


/ View Data in Hex, Octal, Decimal, 
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/ True C++ Class Library 


/ Device independence through 
inheritance. 


Y Supports Zortech C++ for DOS, 
OS/2. 




















/ New Level 2 device independent 
function calls supported by six 
drivers — Greenleaf, Fast, Polled, 
Smart DigiBoard, MODEM 
Assist, FOSSIL. More on the way. 


/ XMODEM, YMODEM (Batch), 
ZMODEM (Batch), Kermit, ASCII 
file transfers. 1K, G, CRC options. 


Y Intelligent Digi CHANNEL™ 
support reduces loading on PC. 


/ Access modems via network using 
































/ IBM PC, XT, AT, PS/2 and 
Compatibles 


Y/Y COM1..COM4 
/ Baud rates to 115,200 


/ XON/XOFF, RTS/CTS Flow 
Controls 



































Binary, with Graphic Characters / XMODEM, Kermit File Transfer Fresh Technology MODEM 
for Control Codes (VGA, EGA) protocols Assist™ 
/ Timestamps, Variable Resolution, / VT52, VT100 subset, ANSI Y/Y XON/XOFF, RTS/CTS and 
for each character, down to 1 msec. Terminal Emulation plus TTY DTR/DSR flow controls. 
emulation 


Y Source Mode lets you send from 
file, keyboard or both 


/ File format & include files provided 
so you can analyze captured data. 


/ ViewComm will pay for itself the 
first time you use it. 


Y Up to 115,200 baud. 8250, 16450 
UART, and now16550 FIFO 
modes. Ring-bufferred, all four 
interrupts serviced for all ports. 
Buffers to 65K. New Fast receive 
interrupt option for tight spots. 


Y Unlimited number of ports for ISA 
and MicroChannel, COM1..COM8, 
all popular multi-port boards, 
including Intelligent DigiBoard. . 


/Y More than forty modem control 
functions. 


/ Includes keyboard functions, Ctrl-Break 
Handker, unique WideTrack™ 

Receive feature. Option to filter up — 

to 3 codes from input. 


/ Hayes modem control classes 
Y Line and link level controls & status 


/ Extensive examples help you get 
started with OOP applications 
using communications. 
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(continued from page 159) 

do when another interrupt request 
comes in while a prior interrupt request 
is still being serviced. Understand the 
three tasks performed by the 8259, and 
you’ve got PC interrupts in your hip 
pocket. 


Those IRQ Numbers 

At one point or another you’ve run in- 
to a serial port problem (no probablies 
about it; serial port problems are as 
common as corrupt congressmen) and 
had someone ask, “Well, is the port set 
up for IRQ3 or IRQ4?” Perhaps you 
peeked at the DIP switches and were 
able to report the truth, but you might 
also have wondered just what that 
meant. 

The IRQ numbers are the identifiers 
of the eight inputs to the 8259 PIC chip. 
They run from IRQO to IRQ7, and they 
represent literal input pins on the phys- 
ical 8259 chip as well as the names of 
signals passing through the chip. 

It’s important to remember that the 
IRQ numbers do not correspond to in- 
terrupt vector numbers. IRQO, for ex- 
ample, does not make use of interrupt 
vector 0, nor does IRQ1 make use of 
vector 1, and so on. In truth, the IRQ 
interrupts are “mapped onto” interrupt 
vectors 8 through 15, where IRQO uses 
vector 8, IRQ1 uses vector 9, and so on. 
I’ve summarized the first 16 PC inter- 
rupt vectors in Table 1, including their 
memory addresses, applicable IRQ num- 
bers, and standard uses, if any. 

The first several interrupts are special- 


_ purpose in nature. Some of them are 


built into the CPU. A divide by 0 oper- 
ation, for example, will automatically 
trigger an interrupt to vector 0. You don’t 
have to code it up, and the interrupt pin 
on the CPU is not involved. If the DIV 
instruction microcode detects a divide 
by 0, it does what amounts to a soft- 
ware interrupt to vector 0. 

The Non-Maskable Interrupt (NMD 


uses vector 2. NMI has its own dedi- 


cated pin on the CPU, and generally is 
used to report catastrophic hardware 
failure. On those occasions when you’ve 
seen PARITY ERROR on your screen just 
before the system locked up, you’ve wit- 
nessed a nonmaskable interrupt in ac- 
tion, reporting a bad memory location 
somewhere. The NMI is not something 
programmers ordinarily mess with, so I 
won't describe it further. 


Cascading Controllers 

What I’ve described so far is pretty much 
the way things exist on the older PC 
and XT machines based on the 8088. 
Starting with the AT in 1984, however, 
IBM added a second 8259 PIC chip to 
the motherboard. This added eight in- 
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piler that transforms your ".bat" files into ".exe" files. Com- 
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Memory Management Library 






*New Link Library accesses expanded memory, 
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‘Supports XMS and VCPI standards for extended 
memory and LIM standard 4.0 for expanded memory. 
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compilers. 


‘Backward Compatible with version 2.0. 


Also, PowerSTOR® v. 1.3 now available supporting 
VCPI standard for extended memory. Completely 


compatible with expanded memory emulators. 
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Drawbridge 


Source Code Generating Graphics 
Editor and Screen Prototype Tool 


Drawbridge™ spares you the tedious, error-prone task of programming graphics displays. 
You know how hard it is to create graphics and prototype screens by trial and error. It 
seems to take forever to get everything in the right position. And then there’s the 
experimenting with colors, pen patterns, fonts, etc. 

Drawbridge will forever change the way you create graphics screens. Create the screen 
with Drawbridge’s interactive editor. The program keeps track of what you draw and where 
you draw it. You can change the display until it’s exactly the way you want it. When 
you're done, Drawbridge generates a file of source code calls to your graphics library. Add 
the generated file to your program, compile, link, and you’re all done! 

Since Drawbridge generates source code, you can modify the output however you like. 
And since the source code is compiled with your own program, you’re not tied into having 
a separate image file for each display. ‘ 

If you're new to graphics programming, Drawbridge will make it easy for you to create 
complex graphics right from the start. Experienced programmers will appreciate the 
incredible time savings that interactive editing and code generation provides. Drawbridge- 
the only interactive graphics editor designed specifically for programmers. 
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Courseware Applications, Inc. 
481 Devonshire Drive * Champaign, IL 61820 
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Free Demonstration: Download from our 
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terrupt lines to the system, for-a total of 
15. (One line is taken in connecting the 
two 8259 chips to one another, or there 
would be 16.) 

The second 8259’s output pin is con- 
nected to the IRQ2 input of the origi- 
nal 8259. This prevents IRQ2 from be- 
ing used for any specific hardware 
device, but it adds the eight inputs from 
the second 8259. The second set of in- 
terrupt inputs are known as IRQ8- 
IRQ15. IRQ8 is used by the AT’s real- 
time clock chip, and IRQ9 is used by 
local area network adapter boards. Most 
of the other IRQs are undedicated or 
reserved. : 

When an interrupt comes in from one 
of the second set of IRQs, the second 
8259 enters an interrupt to IRQ2 of the 
first 8259. Then some additional -proto- 
cols must be followed to inform the CPU 
which of the second set of IRQ’s was 
the ultimate source of the interrupt. Yes, 
it does get hairy, but the second eight 
IRQs don’t really involve serial com- 
munications in any way, and I won't be 
discussing them further. 


Masking Out Interrupts 

Apart from the NMI and two internal in- 
terrupts, all of the interrupts in the PC 
architecture are maskable, meaning that 
the CPU can be made to ignore them, 
even when an external hardware de- 
vice attempts to trigger them. 

The CPU can mask out interrupts gen- 
erally through the use of the Interrupt 
Flag (IF) and the two machine instruc- 
tions that toggle it. The STI instruction 
sets IF, and the CLI instruction clears IF. 
When IF is cleared, a// maskable inter- 
rupts will be ignored by the CPU. (This 
includes software interrupts, but again, 
not the NMI.) IF is automatically cleared 
when an interrupt is recognized by the 
CPU to prevent a second interrupt from 
happening until the CPU is ready to deal 
with it. We'll come back to this shortly. 

Masking out individual interrupts 
while allowing others to go through is 
done by way of the machinery inside 
the 8259 chip. Inside the 8259 is an 8- 
bit register cleverly named Operation 
Control Word 1, or OCW1 for short. 
Don’t forget that, despite its name, 
OCW 1 is a byte in size, and not a word. 
Each of the 8 bits in OCW1 masks or 
enables one of the eight IRQ interrupt 
signals controlled by the 8259. It’s a sim- 
ple relationship: Bit 0 controls IRQO, bit 
1 controls IRQ1, and so on, through all 
eight IRQs. 

When a bit in OCW1 is 1, the corre- 
sponding interrupt is disabled. (We say 
“masked.”) When a bit in OCW1 is 0, 
the corresponding interrupt is enabled. 
Enabling COM1: means setting the bit 
for IRQ4 to 0; enabling COM2: means 
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setting the bit for IRQ3 to 0. (See Table 
1 for IRQ numbers and what they do.) 


Working With OCW1 

OCW1 is a read/write register accessed 
through I/O port number $21. P’ve sum- 
marized the bit numbers, IRQ numbers, 
and mask values associated with OCW1 
in Figure 2. One thing never to forget 
in programming OCW1 is that you cant 


just write a mask value to it. Writing $10 


The bottom of PC memory 


Interrupt 0 


Interrupt 1 


directly to OCW1 will disable IRQ4 — 
and enable all other IRQs, regardless of 
whether they were enabled before! 
You must make sure that what you 
write affects only the mask bits and thus 
IRQs that you wish to affect. This is best 
done by reading OCW1, ANDing or OR- 
ing the OCW1 contents with the mask 
bit you wish to change, and then writ- 
ing the whole value back to OCW1. For 
example, to disable interrupts at IRQ4 


Interrupt 2 


Segment Segment | Offset | > 


LSB | MSB | LSB | MSB | LSB | MSB | LSB | MSB 





0 1 2 3 4 
Increasing memory addresses —> 


ce eal 


$0000 : $0000 





Figure 2: IRQ mask bits in OCW1 


OCW1 := S21; 
TRO4Mask := $10; 


Port [OCW1] := Port [OCWl1] OR IRQ4Mask; 


Port [OCW1] := Port [OCW1] AND (NOT IRQ4Mask) ; 





Example 1: (a) Disabling interrupts at IRQ4; (b) enabling interrupts at IRQ4 


(to turn off COM1: interrupts) you might 
use the Pascal statements in Example 
1(a). The OR operator writes the single 
1-bit in JIRO4Mask to OCW1 without af- 
fecting any of the other bits either way. 
Enabling interrupts at IRQ4 would be 
done as in Example 1(b). 

Note that you must first invert the 
mask value via NOT. The idea in en- 
abling an interrupt is to force the OCW1 
mask bit in question to 0, and the sig- 
nificant bit in the mask values are all 1- 
bits. The AND operator will then force 
the mask bit in question to a 0, since 
the significant bit in the inverted mask 
value is the only 0-bit in the inverted 
mask value. 


Hold That Thought 

Once again, the subject at hand far out- 
weighs a single column’s worth of mag- 
azine pages. There’s a lot more to be 
said about the 8259 before we can write 
a simple interrupt-driven version of the 
POLLTERM program I presented a few 
columns back. I’d almost say that in re- 
gard to interrupt driven serial port I/O, 
the 8259 is a more significant challenge 
than the CPU itself. 

More coming. Stay tuned. 


DDJ 
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The affordable approach 


Five there’s a CASE tool that won't 
get in the way of your creativity... A 
tool that makes structured analysis, 
structured design and data modeling 
as easy as working with any other tool 
on your PC - EasyCASE Plus! Using 
EasyCASE Plus’ new, easy to use 
graphical user interface (GUI), you'll 
be creating and editing charts, linking 
them, and building your data dictionary 
in no time. As well as being easy to 
use and easy to learn, EasyCASE 
Plus is easy on your budget! Ask any 
user. They'll tell you it's the best buy 
for your PC based CASE tool needs. 
Discover why over 4,000 software 
professionals use EasyCASE Plus 
and how you can join them! 


Requirements: 

Runs on: IBM PC or PS/2 (AT recommended), 
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« interface (GUI) 

= Extensive diagram editing features 

® Integrated dBASE III compatible data 
dictionary 

® Integrated dictionary manager, reports 
manager, process editor 

® Hierarchical chart linking & process 
decomposition 

= Record and element definitions 

= Extensive printer, plotter and desktop 
publishing support 

® Data dictionary import, export, and merge 

® On-line help 

= Comprehensive documentation with tutorial 

" Access to your database, word processor, 
DOS, etc. 

® Integrated diagram analysis (optional) 





, _Vvergreen 16650 NE 79th Street 
: Suite 200 

2. Redmond, WA 98052 

ok USA 

FAX: (206) 883-7676 





eee cater ate aes heh cate 


Tools 
ee 


Call today for a brochure! 


Tel: (206) 881-5149 
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Order now by calling our toll free 
number or mail the coupon to: 


Mix Software 
1132 Commerce Drive 
Richardson, TX 75081 
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60 Day Money Back Guarantee 
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For technical support, please call: 


1-2) 4-783-6001 
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The C/Database Toolchest™ 
adds sophisticated file manage- 
ment functions to your Power C™ , 
Turbo C®, QuickC®, or Microsoft® C 
compiler. With the C/Database 
Toolchest™ , your data requires 
much less disk space than with 
programs like dBASE®, and you 
can access your data much faster. 
Of course the full power of C 
provides you with an unlimited 
amount of programming flexibility. 

The C/Database Toolchest™ 
includes three major components: 
1) An advanced B+tree library 
gives you instant access to your 


data. 


2) A high-level ISAM library 
provides you with an vi Be use 
C interface, and 
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About the only thing that the 
C/Database Toolchest™ doesn't 
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More Undocumented 
256-Color 


VGA Magic 


very so often, a programming de- 
mon that I’d thought I’d forever 
laid to rest arises to haunt me once 
again. A minor example of this — 
an imp, if you will — is the use of “ =” 
when I mean “ == ,” which I’ve done all 
too often in the past, and am sure Ill do 
again. That’s minor deviltry, though, 
compared to the considerably greater 
evils of one of my personal scourges, 
of which I was recently reminded anew: 
too-close attention to detail. Not seeing 
the forest for the trees. Looking low 
when I should have looked high. Miss- 
ing the big picture, if you catch my drift. 
Thoreau said it best: “Our life is frit- 
tered away by detail... Simplify, sim- 
plify.” That quote sprang to mind when 
I received a letter from Anton Treuen- 
fels of Fridley, Minnesota, thanking me 
for clarifying the principles of filling ad- 
jacent convex polygons, as discussed in 
this column in February and March. An- 
ton then went on to describe his own 
method for filling convex polygons. 
Anton’s approach had its virtues and 
drawbacks, foremost among the virtues 
being a simplicity Thoreau would have 
admired. For instance, in writing my 
polygon-filling code, I had spent quite 
some time trying to figure out the best 
way to identify which edge was the left 
edge and which the right, finally settling 


Michael Abrash 


on comparing the slopes of the edges 
if the top of the polygon wasn’t flat, and 
comparing the starting points of the 
edges if the top was flat. Anton simpli- 
fied this tremendously by. not bothering 
to figure out ahead of time which was 
the right edge of the polygon and which 
the left, instead scanning out the two 
edges in whatever order he found them 
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and letting the low-level drawing code 
test, and if necessary swap, the end- 
points of each horizontal line of the fill, 
so that filling started at the leftmost edge. 
This is a little slower than my approach 
(although the difference is almost sure- 
ly negligible), but it also makes quite a 
bit of code go away. 

What that example, and others like it 
in Anton’s letter, did was kick my mind 
into a mode that it hadn’t —but should 
have —been in when I wrote the code, 
a mode in which I began to wonder, 
“How else can I simplify this code?”; 
what you might call Occam’s Razor 
mode. You see, I created the convex 
polygon-drawing code by first writing 
pseudocode, then writing C code, and 
finally writing assembly code, and once 
the pseudocode was finished, I stopped 
thinking about the interactions of the 
various portions of the program. In oth- 
er words, I became so absorbed in in- 
dividual details that I forgot to consid- 
er the code as a whole. That was a 
mistake, and an embarrassing one for 
someone who constantly preaches that 
programmers should look at their code 
from a variety of perspectives. May my 
embarrassment be your enlightenment. 

The point is not whether, in the final 
analysis, my code or Anton’s code is 
better; both have their advantages. The 
point is that I was programming with 
half a deck because I was so fixated on 
the details of a single sort of imple- 
mentation; I ended up with relatively 
hard-to-write, complex code, and missed 
out On many potentially useful opti- 
mizations by being so focused. It’s a big 
world out there, and there are many 
subtle approaches to any problem, so 
relax and keep the big picture in mind 
as you implement your programs. Your 
code will likely be not only better, but 
also simpler. And whenever you see me 





walking across hot coals in this column 
when there’s an easier way to go, 
please, let me know! 

Thanks, Anton. 


Mode X Continued 

Last month, I introduced you to what I 
call mode X, an undocumented 320 x 240 
256-color mode of the VGA. Mode X is 
distinguished from mode 13h, the doc- 
umented 320 x 200 256-color VGA mode, 
in that it supports page flipping, makes 
off-screen memory available, has square 
pixels, and, above all, lets you use the 
VGA’s hardware to increase perfor- 
mance by as much as four times (at the 
cost of more complex and demanding 
programming, to be sure — but end 
users care about results, not how hard 
the code was to write, and mode X de- 
livers results in a big way). Last month 
we saw how the VGA’s plane-oriented 
hardware can be used to speed solid 
fills. That’s a nice technique, but this 
month we’re going to move up to the 
big guns —the latches. 

The VGA has four latches, one for 
each plane of display memory. Each 
latch stores exactly one byte, and that 
byte is always the last byte read from 
the corresponding plane of display 
memory, as shown in Figure 1. Fur- 
thermore, whenever a given address in 
display memory is read, all four planes’ 
bytes at that address are read and stored 
in the corresponding latches, regardless 
of which plane supplied the byte re- 
turned to the CPU (as determined by 
the Read Map register). As with so much 
else about the VGA, the above will 
make little sense to VGA neophytes, but 
the important point is this: By reading 
one display memory byte, 4 bytes —one 
from each plane —can be loaded into 
the latches at once. Any or all of those 
4 bytes can then be written anywhere 
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Homelessness. Child abuse. 
Environmental disaster. 

Through CompuMentor, people 
who know how to solve computer 
problems are matched up with 
resourceful, exciting organizations 
working to solve human problems. 

In the last two years, we've put 
computers to work for more than 
200 non-profits in the San Francisco 
Bay Area. 

Now it’s possible for you to 
replicate this miracle in your own 
area. , 

For your free start-up kit, write 
or call our director, Daniel Ben- 
Horin. 

Individual and corporate support 
is also welcome. 

Together, we can make sure 
computers keep their promise. 


uMMentor 


(415) mi 385 8th Street, 2nd Floor, San Francisco, CA 94103 
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in display memory with a single byte- 
sized write, as shown in Figure 2. The 
upshot is that the latches make it pos- 
sible to copy data around from one part 
of display memory to another, 32 bits 
(four pixels) at a time —four times as 
fast as normal. (Recall from last month 
that in mode X, pixels are stored one 
per byte, with four pixels in a row 


stored in successive planes at the same 
address, one pixel per plane.) Howey- 
er, any one latch can only be loaded 
from and written to the corresponding 
plane, so an individual latch can only 
work with every fourth pixel on the 
screen, the latch for plane 0 can work 
with pixels 0, 4, 8. .., the latch for plane 
1 with pixels 1, 5, 9..., and so on. 


The value 49, from Plane 1, is read by the CPU 


7 Read Map register (currently selects plane 1) 





Plane 3 


All four latches are loaded from the corresponding 
planes by every display memory read 


Plane 0 


Display memory 





Figure 1: The latches are loaded by every display memory read. 


The value OFFh is written by the CPU 


48| <—— The latches 


io Bit Mask register; each 1 bit selects corresponding 
~~ bit from CPU, each 0 bit selects bit from latches. A 
setting of OOh selects all bits from latches 


5] Map Mask register; each 1 bit enables writes to 
~ corresponding plane, each 0 bit blocks 





Plane 3 


Plane 0 


Display memory 





Figure 2: Up to 4 bytes can be written from the latches to their corresponding 
Dlanes by a single display memory write. 
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The joy of C-scape 


he C-scape™ Interface 

Management System is a flexible 
library of C functions for data entry 
and validation, menus, text editing, 
context-sensitive help, and windowing. 
C-scape’s powerful Look & Feel™ 
Screen Designer lets you create full- 
featured screens and automatically 
generates complete C source code. 


C-scape includes easily modifiable high- 
level functions as well as primitives to 
construct new functions. Its object- 
oriented design helps you build more 
functional, more flexible, more portable, 
and more unique applications—and 
you'll have more fun doing it. 


The industry standout. Many 
thousands of software developers world- 
wide have turned to the pleasure of 
C-scape. The press agrees: 
“C-scape is by far the best. 
7. . A joy to use,” wrote 
IEEE Corivater Major 
companies have selected C-scape as a 
standard for software development. 


C-scape’s open architecture lets you use 
it with data base, graphics, or other C 
and C++ libraries. C-scape runs in text or 
graphics mode, so you can display text 
and graphics simultaneously. To port 
from DOS or OS/2 to UNIX, AIX, QNX, or 
VMS, just recompile. C-scape also 


Elegant graphics and text 


Graphics. Run in color in text or sraphies node. 
Read images from PCX —_ - 


cortighetile. _ 
Mouse support. aa 
1 alec , ta. 





supports Phar Lap and Rational DOS 
extenders. 


Trial with a smile. C-scape is 
powerful, flexible, portable, and easy to 
try. Test C-scape for 30 days. It offers a 
thorough manual and function reference, 
sample programs with source code, and 
an optional screen designer and source 
code generator. Oakland 
» ; 
~ provides access to a 24- 
/ hour BBS, telephone servi- 
ces, and an international 
network of companies providing in- 
country support. No royalties, runtime 
licenses, runtime modules. After you 
register, you get complete library source 
code at no extra cost. 


Call 800-233-3733 (617-491-7311 in 
Massachusetts, 206-746-8767 in Washing- 
ton; see below for International). After 
the joy of C-scape, programming will 
never be the same. 


DOS, OS/2 (Borland and Microsoft 
support): with Look & Feel, $499; library 
only, $399; UNIX, etc. start at $999; 
prices include library source. Training 
in Cambridge and Seattle each month. 
Mastercard and Visa accepted. 


OA aK D, 





Oakland Group, Inc. 675 Massachusetts Ave., Cambridge, MA 02139 USA. FAX: 617-868-4440. Oakland Group, GmbH. Alt Moabit 91-B, D-1000 Berlin 21, F.R.G., 

(030) 391 5045, FAX: (030) 393 4398. Oakland International Technical Network (training, support, consulting): Australia Noble Systems (02) 564-1200; Benelux TM 
Data (02159) 46814; Denmark Ravenholm (042) 887249; Austria-Germany-Switzerland ESM 07127/5244; Norway Ravenholm (02) 448855; Sweden Linsoft (013) 111588; 
U.K. Systemstar (0992) 500919. Photo by Jessica A. Boyatt; Kanji by Kaji Aso. Picture shows a C-scape program combining data entry with video images loaded from PCX 
files. C-scape and Look & Feel are trademarks of Oakland Group, Inc.; other trademarks belong to their respective it en Copyright © 1990, by Oakland Group, Inc. 
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(continued from page 166) 

The latches aren’t intended for use in 
256-color mode —they were designed 
to allow individual bits of display mem- 
ory to be modified in 16-color mode — 
but they are nonetheless very useful in 
mode X, particularly for patterned fills 
and screen-to-screen copies, including 
scrolls. Patterned filling is a good place 
to start, because patterns are widely 
used in windowing environments for 
desktops, window backgrounds, and 
scroll bars, and for textures and color 
dithering in drawing and game software. 

Fast mode X fills with patterns that 
are four pixels in width can be per- 
formed by drawing the pattern once to 
the four pixels at any one address in 
display memory, reading that address 
to load the pattern into the latches, set- 
ting the Bit Mask register to 0 to spec- 
ify that all bits drawn to display mem- 
ory should come from the latches, and 
then performing the fill pretty much as 
we did last month, except that each line 
of the pattern must be loaded into the 
latches before the corresponding scan 
line on the screen is filled. Listings One 
and Two (page 181) together demon- 
strate a variety of fast mode X four-by- 
four pattern fills. (The mode set func- 
tion called by Listing One is from last 
month’s column.) 

Four-pixel-wide patterns are more 
ries did shee might — _— 


Figure 3: One useful way to organize 
display memory in Mode X 





are actually 2!48 possible patterns (16 


pixels, each with 2° possible colors); 
that set is certainly large enough for 
most color-dithering purposes, and in- 
cludes many often-used patterns, such 
as halftones, diagonal stripes, and 
crosshatches. 

Furthermore, eight-wide patterns, 
which are widely used, can be drawn 
with two passes, one for each half of 
the pattern; this principle can in fact be 
extended to patterns of arbitrary mullti- 
ple-of-four widths. (Widths that aren’t 
multiples of four are considerably more 
difficult to handle, because the latches 
are four pixels wide.) ’ 


Allocating Memory in Mode X 

Listing Two raises some interesting ques- 
tions about the allocation of display 
memory in mode X. In Listing Two, 
whenever a pattern is to be drawn, that 
pattern is first drawn in its entirety at 
the very end of display memory; the 
latches are then loaded from that copy 
of the pattern before each scan line of 
the actual fill is drawn. Why this dou- 
ble copying process, and why is the pat- 
tern stored in that particular area of dis- 
play memory? 

The double copying process is used 
because it’s the easiest way to load the 
latches. Remember, there’s no way to 
get information directly from the CPU 
to the latches; the information must first 
be written to some location in display 
memory, because the latches can be 
loaded only from display memory. By 
writing the pattern to off-screen mem- 
ory, we don’t have to worry about in- 
terfering with whatever is currently dis- 
played on the screen. 

As for why the pattern is stored ex- 
actly where it is, that’s part of a master 
memory allocation plan that will come 
to fruition next month when I imple- 
ment a mode X animation program. Fig- 
ure 3 shows this master plan; the first 
two pages of memory (each 76,800 pix- 
els long, spanning 19,200 addresses — 
that is, 19,200 pixel quadruplets — in 
display memory) are reserved for page 
flipping, the next page of memory (al- 
so 76,800 pixels long) is reserved for 
storing the background (this is used to 
restore the holes left after images move), 
the last 16 pixels (four addresses) of dis- 
play memory are reserved for the pat- 
tern buffer, and the remaining 31,728 
pixels (7932 addresses) of display mem- 
ory are free for storage of icons, images, 
temporary buffers, or whatever. This is 
an efficient organization for animation, 
but there are certainly many other pos- 
sible setups. For example, you might 
choose to have a solidly-colored back- 
ground, in which case you could dis- 


pense with the background page (in- 
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stead using the solid rectangle fill rou- 
tine to replace the background after im- 
ages move), freeing up another 76,800 
pixels of off-screen storage for images 
and buffers. You could even eliminate 


page-flipping altogether if you needed 


to free up a great deal of display mem- 
ory. For example, with enough free dis- 
play memory it is possible in mode X 
to create a virtual bitmap three times 
larger than the screen, with the screen 
becoming a scrolling window onto that 
larger bitmap. This technique has been 
used to good effect in a number of 
games, although I don’t know if any of 
those games use mode X. 


Copying Pixel Blocks Within Display 
Memory 

Another fine use for the latches is copy- 
ing pixels from one place in display 
memory to another. Whenever both the 
source and the destination share the 
same nibble alignment (that is, their start 
addresses modulo four are the same), 
it is not only possible but quite easy to 
use the latches to perform the copy four 
pixels at a time. Listing Three (page 182) 
shows a routine that copies via the latch- 


—~es. (When the source and destination 


do not share the same nibble alignment, 
the latches cannot be used, because the 
source and destination planes for any 


given pixel differ; in that case, you can 


set the Read Map register to select a 
source plane and the Map Mask regis- 
ter to select the corresponding destina- 
tion plane, then copy all pixels in that 
plane; repeat for all four planes.) 

Listing Three has an important limi- 
tation: It does not guarantee proper han- 
dling when the source and destination 
overlap, as in the case of a downward 
scroll, for example. Listing Three per- 
forms top-to-bottom, left-to-right copy- 
ing. Downward scrolls require bottom- 
to-top copying; likewise, rightward 
horizontal scrolls require right-to-left 
copying. As it happens, my intended 
use for Listing Three is to copy images 
between off-screen memory and on- 
screen memory, and to save areas un- 
der pop-up menus and the like, so I 
don’t really need overlap handling — 
and I do really need to keep the size of 
this column down. However, you will 
surely want to add overlap handling if 
you plan to perform arbitrary scrolling 
and copying in display memory. 

Now that we have a fast way to copy 
images around in display memory, we 
can draw icons and other images be- 
tween two and four times faster than in 
mode 13h, dependifig on the speed of 
the VGA’s display memory. Un case 
you're worried about the nibble-align- 
ment limitation on fast copies, don’t be; 
Pll address that fully next time, but the 
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secret is to store all four possible ro-. 


tations in off-screen memory, then se- 
lect the correct one for each copy.) 
However, before our fast display mem- 
ory-to-display memory copy routine 
can do us any good, we must have a 
way to get pixel patterns from system 
memory into display memory, so that 
they can then be copied with the fast 
copy routine. 


Mode X lets you use 
the VGA’s hardware 
to increase 
performance by as 
much as four times 


Copying to Display Memory 


The final piece of the puzzle is the sys-. 


tem memory to display-memory-copy- 
routine shown in Listing Four (page 
182). This routine assumes that pixels 
are stored in system memory in exact- 
ly the order in which they will ultimately 
appear on the screen; that is, in the 
same linear order that mode 13h uses. 
It would be more efficient to store all 
the pixels for one plane first, then all 
the pixels for the next plane, and so on 
for all four planes, because many OUTs 
could be avoided, but that would make 
images rather hard to create. And, while 
it is true that the speed of drawing im- 
ages is, in general, often a critical per- 
formance factor, the speed of copying 
images from system memory to display 
memory is not particularly critical in 
mode X. Important images can be stored 
in off-screen memory and copied to the 
screen via the latches much faster than 
even the speediest system memory-to- 
display memory-copy-routine could 
manage. 

I’m not going to present a routine to 
perform mode X copies from display 
memory to system memory, but such a 
routine would be a straightforward in- 
verse of Listing Four. 


Coming Up: Our Hero Risks Life, Limb, 


and Word Count in a Thrilling Conclusion 
Next month, Ill take all the mode X 


tools we’ve developed, together with 


one more tool—masked image copy- 


ing —and the remaining unexplored 


feature of mode X, page flipping, and 
build an animation application. I hope 
that when I’m done, you'll agree with 
me that mode X is the way to animate 


w~ 


on the PC. I also hope that I ¢an fit ev- 
erything into one column; there are al- 
ways so many interesting things to say 
that I have trouble keeping the size of 
these columns down, and mode X an- 
imation covers even more fertile ground 
than usual. | 

But, hey—you’ve already heard 
about my programming demons; I’ll 
spare you the writing demons. Besides, 
as I’m fond of saying, end users care 
about results, not how you produced 
them. For my writing, you folks are the 
end users —and notice how remarkably 
little you care about how this magazine 
gets written and produced. You care 
that it shows up in your mailbox every 
month, and you care about the contents, 
but you sure don’t care about how it 
got there. When you're a creator, the 
process matters. When you’re a buyer, 
results are everything. All important. Sine 
qua non. The whole enchilada. 

If you catch my drift. 


Late Flash! _ 


The Mode X mode set code in my Jul 
91 column (Listing One, page 154) has 
a small — but critical — bug. On line 46, 
the value loaded into AL should be OE3h, 
not OE7h. Without this correction, the 
screen will roll on fixed-frequency (GBM 
851X-style) monitors. 


DDJ 


(Listings begin on page 181.) | 
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Computer Graphics: 
Principles and 
Practice 


he subspeciality of computer 

graphics programming is a craft, 

an art, a science, and (for some) 

a bit of a religious avocation as 
well. It’s hard to think of any other 
niche in our industry that can appeal 
to practioners with such a wide range 
of backgrounds, levels of training, or 
native talent. Computer scientists and 
mathematicians develop ever-bigger- 
and-better algorithms for transforma- 
tions, ray-tracing, and solid-modeling; 
the Silicon Valley engineers design ev- 
er-faster graphics coprocessors; the Far- 
Eastern manufacturers crank out ever- 
cheaper color CRTs with ever-higher 
resolutions; the systems software peo- 
ple develop graphical user interfaces to 
soak up the pixels and CPU cycles as 
fast as they appear; and self-taught 
teenagers can write video games that 
make some of them wealthy before 
they are old enough to drive. 

When I first became involved with 
personal computers, the computer graph- 
ics market was defined by incredibly 
expensive workstations on the high end 
and the Apple II on the low end. Most 
of the readily available graphics termi- 
nals were vector-based, because serial 
lines simply didn’t have the bandwidth 
to support raster graphics, and the gen- 
eration of a few minutes of high-reso- 


Ray Duncan 


lution raster animation required days of 
mainframe computer time. There was 
little in the way of hardware between 
these extremes that the average pro- 
grammer could play with, and the trade 
press reflected this situation. Most books 
on computer graphics that I could lay 
my hands on were stiflingly formal, aca- 
demic texts with a heavy emphasis on 
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mathematical proofs and floating point, 
and a surprising paucity of quality il- 
lustrations. 

Both the release of the original IBM 
PC in 1981 and the appearance of Fo- 
ley and van Dam’s Fundamentals of In- 
teractive Computer Graphics in 1982 
foreshadowed the enormous changes 
that were about to sweep the field of 
computing. The PC was the first repre- 
sentative of a standardized hardware 
platform that would put 80386-based, 
640 x 480, 16-color graphics capabilities 
(or better) and sophisticated tools with- 
in the financial reach of nearly every 
programmer by the end of the decade. 
Similarly, Foley and van Dam’s book 
made graphics software technology ac- 
cessible to the programming masses. 


The book was of manageable length 


and highly readable, yet it covered an 
enormous range of graphical issues — 
from plotting bar graphs to three-di- 
mensional transformations and chro- 
matic color models — and discussed 
them in sufficient detail for the needs 
of all but the most advanced practi- 
tioners. My own copy, which is always 
within easy reach of the keyboard, has 
become tattered and stained from use. 

But although the first edition of Foley 
and van Dam achieved “classic” status 
almost immediately, the passing years 
and the inexorable march of technolo- 





gy have not treated the book kindly. The 


amount of space it devoted to raster | 
graphics seems hopelessly inadequate . 


now. (The description of an important 
raster flood-fill algorithm, for example, 
is limited to a single diagram and cap- 
tion.) The book’s treatment of menus 
and user interactions has long since been 
outstripped by evolution in modern 
graphical user interfaces such as the Mac- 
intosh’s System 7, Unix’s Motif, and 
DOS’s Windows. And its selection of 
color plates, many of which were based 
on Atari game computers or Evans and 
Sutherland flight simulators, appear 
severely dated in our era of inexpensive 
RISC workstations, photorealistic ren- 
dering, and shrink-wrapped mass-mar- 
ket software like Autodesk Animator. 
Fortunately, 1990 brought us a new 
edition of Foley and van Dam, which 
seems likely to be even more important 
than ‘the original volume. The book now 
has four authors instead of two (Feiner 
and Hughes joined the team), a differ- 
ent title (Computer Graphics: Principles 
and Practice), and a massive amount 
of new material — the number of pages 
has almost doubled. The printed mate- 
rial has been fortified with an impres- 
sive number of dazzling full-color illus- 
trations — several times as many as in 
the first edition — that reflect the very 
latest presentation technology. The sub- 
ject matter has been reoriented toward 
raster graphics and gives equal time to 
both integer and floating-point graph- 
ics toolboxes. The algorithms have been 


recast in a Pascal-like structured pseu- 


docode. In short, the book has been re- 
vamped so drastically that the most puz- 
zling aspect is why Addison-Wesley 
chose to call it a 2nd Edition. 

In its new incarnation, Computer 
Graphics: Principles and Practice is di- 
vided into five main sections or groups 
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of chapters. The first section includes 
some historical perspective, basic graph- 
ics hardware concepts, a simple integer 
graphics package that resembles Quick- 
Draw, 2-D and 3-D transformations, and 
a 3-D floating-point graphics package 
that supports hierarchies of graphic ob- 
jects. The second section is devoted to 
user interfaces and is completely up to 
date with authoritative discussions of 
Open Look, Motif, the Macintosh, Next- 
Step, the latest arcade games, and even 
the cutting-edge experiments in virtual 
reality. The third group embraces the 
topics of curves, surfaces, modeling, and 
color systems. The fourth set of chap- 
ters talks about image synthesis and sur- 
veys a gamut of complex issues, rang- 
ing from ray tracing to the projection of 
textures and reflections onto contoured 
surfaces. The last few chapters are con- 
cerned with page description languages, 
animation, and finally with state-of-the- 
art products and research — the most 
sophisticated graphics hardware and 
software that man has yet devised 
and/or that money can buy. 

I should warn you that Foley and van 
Dam’s new opus has a high intimida- 
tion factor compared to its predecessor. 
Whereas the first edition was just about 
the right length and had the right tone 
to be browsed from beginning to end, 
the second edition is encyclopedic in 
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The included PKzip utility lets you store 
compressed files as a single self-extracting 
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its appearance and considerably more 
demanding in its nature. Although the 
writing is excellent, and the explana- 
tions are admirably lucid, you would 
hardly be any more inclined to read this 
book straight through than you would 
be tempted to make a project of de- 
vouring Knuth’s three-volume Art of 
Computer Programming during your 


This is one of the 
finest reference 
works on the 
bookstore shelves 
today 


summer vacation. The depth and 
breadth is simply too great, even if 
you've got the mathematical background 
to handle the most advanced material 
(as it happens, I don’t). Nevertheless, 
this is one of the finest reference works 
on the bookstore shelves today, and 
sooner or later you’re going to need one 
of the pearls this book has to offer. Buy 
it now to read the delightful chapters 
on design and implementation of user 
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interfaces, and keep it nearby for those 
graphical emergencies of the future. 
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: What’s the best way to write a 
multistatement cpp macro? 


: #define Funct) do {stmt1; stmt2, ...} \ 
while(O) /* (no trailing ; ) 7 


: How can I write a cpp macro which 
takes a variable number of arguments? 


: One popular trick is to define the 
macro with a single argument, and call 
it with a double set of parentheses, 
which appear to the preprocessor to 
indicate a single argument: 


#define DEBUG(args) {printf \ 
("DEBUG: "); printf args;] 
if(n != 0) DEBUG(("n is %d\n", n)); 
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Power 


Build a multi-user, dBASE compatible 
application which is several times 
faster than dBASE IV, Clipper or 

Fox Pro. Watch its windows and 
menus appear instantly on any 
computer. 


Small 
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Complete 
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C PROGRAMMING 


Listing One (Text begins on page 149.) | #define GetAttribute(w) 


((w)->attrib) 
#define AddAttribute(w,a) (GetAttribute(w} j= a) 
#define ClearAttribute(w,a) (GetAttribute(w) &= ~(a)) 
[* ------------- dflat.h ----------- * / ; #define TestAttribute(w, a) (GetAttribute(w) & (a)) 
#ifndef WINDOW_H #define isVisible(w) (GetAttribute(w) & VISIBLE) 
#define WINDOW_H #define SetVisible(w) (GetAttribute(w) |= VISIBLE) 
#define ClearVisible(w) (GetAttribute(w) &= ~VISIBLE) 
#define VERSION "Version 3 Beta" ; #define gotoxy(w,x,y) cursor (w->rc.1f+(x)+1,w->rc.tp+(y) +1) 
#define TRUE 1 WINDOW CreateWindow(CLASS,char *,int,int,int, int, void*, WINDOW, 
#define FALSE 0 int (*) (struct window *,enum messages, PARAM, PARAM) , int); 
void AddTitle(WINDOW, char *); 
#include "system.h" void InsertTitle (WINDOW, char *); 
#include "config.h" void DisplayTitle (WINDOW, RECT *); 
#include "rect.h" void RepaintBorder (WINDOW, RECT *); 
#include "menu.h" : void ClearWindow(WINDOW, RECT *, int); 
#include "keys.h" #ifdef INCLUDE SYSTEM MENUS Pa ; 
#include "commands.h" , void clipline (WINDOW, int, char *); : 
#include "config.h" #else 
#include "dialbox.h" | #define clipline(w,x,c) /**/ 
#endif 
/*® ------ integer type for message parameters ----- */ void writeline(WINDOW, char *, int, int, int); 
typedef long PARAM; void writefull (WINDOW, char *, int); 
#define TE(m) m void SetNextFocus (WINDOW, int) ; 
typedef enum window_class { . void SetPrevFocus (WINDOW, int) ; 
#include "classes.h" void PutWindowChar (WINDOW, int, int, int); 
} CLASS; void GetVideoBuffer (WINDOW) ; 
typedef struct window { void RestoreVideoBuf fer (WINDOW) ; ’ 
CLASS class; /* window class */ void CreatePath(char *, char *, int, int); 
char *title; /* window title * / int LineLength(char *); 
struct window *parent; /* parent window */ RECT AdjustRectangle (WINDOW, RECT); 
int (*wndproc) #define DisplayBorder(wnd) RepaintBorder(wnd, NULL) 
(struct window *, enum messages, PARAM, PARAM); #define DefaultWndProc (wnd,msg,p1,p2) \ 
/[® ---------------- window dimensions ----------------- */ (*classdefs [FindClass(wnd->class) ] .wndproc) (wnd,msg,p1,p2) 
RECT rc; /* window coordinates (0/0 to 79/24) ¥*/ #define BaseWndProc(class,wnd,msg,pl1,p2) \ 
int ht, wd; /* window height and width */ (*classdefs [DerivedClass (class) ] .wndproc) (wnd,msg,p1,p2) 
RECT RestoredRC; /* restored condition rect */ #define NULLWND ( (WINDOW) 0) 
[% weno nnn n-ne linked list pointers ---------------- */ struct LinkedList { 
struct window *next; /* next window on screen */ WINDOW FirstWindow; 
struct window *prev; /* previous window on screen*/ WINDOW LastWindow; 
struct window *nextbuilt; /* next window built */ ai 
struct window *prevbuilt; /* previous window built */ extern struct LinkedList Focus; 
int attrib; /* Window attributes */ extern struct LinkedList Built; 
char *videosave; /* video save buffer * / extern WINDOW inFocus; 
int condition; /* Restored, Maximized, Minimized */ extern WINDOW CaptureMouse; 
int restored _attrib; /* attributes when restored */ extern WINDOW CaptureKeyboard; 
void *extension; /* -> menus, dialog box, etc*/ extern int foreground, background; 
struct window *PrevMouse; extern int WindowMoving; 
struct window *PrevKeyboard; extern int WindowSizing; - 
[*® ----------------- text box fields ------------------ * / extern int TextMarking; 
int wlines; /* number of lines of text */ extern char *Clipboard; 
int wtop; /* text line that is on the top display */ extern WINDOW SystemMenuWnd; 
char *text; /* window text */ [* --------------- border characters ------------- */ 
int textlen; /* text length */ #define FOCUS_NW '"\xc9! 
int wleft; /* left position in window viewport */ #define FOCUS_NE '\xbb' 
int textwidth; /* width of longest line in textbox */ #define FOCUS_SE '\xbe' 
int BlkBegLine; /* beginning line of marked block */ #define FOCUS_SW '\xc8' 
int BlkBegCol; /* beginning column of marked block */ #define FOCUS_SIDE '\xba' 
int BlkEndLine; /* ending line of marked block */ #define FOCUS_LINE '\xcd' 
int BlkEndCol; /* ending column of marked block * / #define NW '\xda' 
int HScrollBox; /* position of horizontal scroll box */ #define NE '\xbf' 
int VScrollBox; /* position of vertical scroll box */ #define SE "\xd9? 
PS esto eons wei lige Dex fielde -cs-scessmen aoe */ #define SW '\xc0' ; 
int selection; /* current selection */ #define SIDE. '\xb3' 
int AddMode; /* adding extended selections mode */ #define LINE '\xc4! 
int AnchorPoint;/* anchor point for extended selections */ #define LEDGE '\xc3' 
int SelectCount;/* count of selected items */ #define REDGE "\xb4' 
[# ------ nee -------- edit box fields ------------------ */ /*® ------------- scroll bar characters ------------ */ 
int CurrCol; /* Current column */ #define UPSCROLLBOX "\xle' 
int CurrLine; /* Current line */ #define DOWNSCROLLBOX '\x1f' 
int WndRow; /* Current window row */ #define LEFTSCROLLBOX '\x11' 
int TextChanged; /* TRUE if text has changed */ #define RIGHTSCROLLBOX '\x10' 
char *DeletedText; /* for undo * / #define SCROLLBARCHAR 176 
int DeletedLength; /* " i */ #define SCROLLBOXCHAR 178 
[%® --------- oon nee dialog box fields ----------------- */ #define CHECKMARK 251 /* menu item toggle */ 
struct window *dFocus; /* control that has the focus */ [8 soon nnn eee title bar characters SoosSeReSsceccas */ 
int ReturnCode; /* return code from a dialog box */ #define CONTROLBOXCHAR '\xf0' 
} * WINDOW; #define MAXPOINTER 24 /* maximize token */ 
#include "message.h" #define MINPOINTER ye. /* minimize token ay 
#include "classdef.h" #define RESTOREPOINTER 18 /* restore token */ 
#include "video.h" /*® --------------- text control characters ---------------- * / 
enum Condition { #define APPLCHAR 176 /* fills application window */ 
ISRESTORED, ISMINIMIZED, ISMAXIMIZED , #define SHORTCUTCHAR '~' /* prefix: shortcut key display */ 
43 #define CHANGECOLOR 174 /* prefix to change colors */ 
void LogMessages (WINDOW, MESSAGE, PARAM, PARAM); #define RESETCOLOR 175 /* reset colors to default */ 
void MessageLog (WINDOW) ; #define LISTSELECTOR 4 /* selected list box entry */ 
fe ooores= window methods ----------- */ /* --~- standard window message processing prototypes ----- */ 
#define WindowHeight (w) ( (w) ->ht) int ApplicationProc (WINDOW, MESSAGE, PARAM, PARAM); 
#define WindowWidth (w) { (w) ->wd) int NormalProc (WINDOW, MESSAGE, PARAM, PARAM); 
#define BorderAdj (w) (TestAttribute (w, HASBORDER) ?1:0) int TextBoxProc (WINDOW, MESSAGE, PARAM, PARAM); 
#define TopBorderAdj (w) ((TestAttribute(w,TITLEBAR) &&  \ int ListBoxProc (WINDOW, MESSAGE, PARAM, PARAM); 
TestAttribute(w,HASMENUBAR)) ? \ ‘ int EditBoxProc (WINDOW, MESSAGE, PARAM, PARAM); 
2: (TestAttribute(w,TITLEBAR | int MenuBarProc (WINDOW, MESSAGE, PARAM, PARAM); 
. HASMENUBAR ; HASBORDER) ? 1 : 0)) int PopDownProc (WINDOW, MESSAGE, PARAM, PARAM); 
#define ClientWidth (w) (WindowWidth (w) -BorderAdj (w) *2) int ButtonProc (WINDOW, MESSAGE, PARAM, PARAM); 
#define ClientHeight (w) (WindowHeight (w) -TopBorderAdj (w) -\ int DialogProc (WINDOW, MESSAGE, PARAM, PARAM); 
BorderAdj (w) ) int SystemMenuProc (WINDOW, MESSAGE, PARAM, PARAM); 
#define WindowRect (w) (w)->rc) - / int HelpBoxProc (WINDOW, MESSAGE, PARAM, PARAM); 
#define GetTop (w) Rect Top (WindowRect (w) ) ) int MessageBoxProc (WINDOW, MESSAGE, PARAM, PARAM); 
#define GetBottom(w) RectBottom(WindowRect (w) )) /® ------------- normal box prototypes ------------- */ 


#define GetLeft (w) 
#define GetRight (w) 
#define GetClientTop(w) 
#define GetClientBottom(w) Get Bottom (w) -BorderAdj 
#define GetClientLeft (w) GetLeft (w) +BorderAdj (w) ) int FrameForeground (WINDOW) ; 


( 
( 
( 
(RectLeft (WindowRect (w) 
( 
( 
( 
( 
#define GetClientRight (w) (GetRight (w) -BorderAdj (w) ) int FrameBackground (WINDOW) ; 
( 
( 
( 
( 
( 
( 
( 


RectRight (WindowRect (w 


) ) 
) 
Get Top (w) +TopBorderAdj (w 
(w 
) 


) 

) int isWindow(WINDOW) ; 

) WINDOW inWindow(int, int); 
int WndForeground (WINDOW) ; 


) 
) 
) int WndBackground (WINDOW) ; 


) 
) 





#define GetParent (w) (w) ->parent) int SelectForeground (WINDOW) ; 
#define GetTitle(w) «= ((w)->title) int SelectBackground (WINDOW) ; 
#define NextWindow(w) ({w) ->next) void SetStandardColor (WINDOW) ; 
#define PrevWindow/(w) (w) ->prev) void SetReverseColor (WINDOW) ; 
#define NextWindowBuilt (w) (w)->nextbuilt) | void SetClassColors (CLASS) ; 
#define PrevWindowBuilt (w) (w) ->prevbuilt) WINDOW GetFirstChild (WINDOW) ; 
#define GetClass (w) ( 


w) ->class) - WINDOW GetNextChild (WINDOW) ; 
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WINDOW GetLastChild (WINDOW) ; 

WINDOW GetPrevChild (WINDOW) ; 

#define HitControlBox(wnd, pl, p2) \ 
(TestAttribute(wnd, TITLEBAR) && \ 
TestAttribute(wnd, CONTROLBOX) && \ 

Plies 2kk p22 0) 

(# -------- text box prototypes ---------- */ 

#define TextLine(wnd, sel) \ 

(wnd->text + *((int *) (wnd->extension) + sel)) 
void WriteTextLine (WINDOW, RECT *, int, int); 
void SetAnchor (WINDOW, int, int); 

#define BlockMarked(wnd) ( wnd->BlkBegLine | 
wnd->BlkEndLine | 
wnd->BlkBegCol | 
wnd->B1lkEndCol ) 

#define ClearBlock(wnd) wnd->BlkBegLine = wnd->BlkEndLine = \ 

wnd->BlkBegCol = wnd->BlkEndCol = 0; 

#define GetText (w) ( (w) ->text) 

void ClearTextPointers (WINDOW); 

void BuildText Pointers (WINDOW) ; 

PI er cries menu prototypes ---------- */ 

int CopyCommand(char *, char *, int, int); 

void PrepOptionsMenu(void *, struct Menu *); 

void PrepEditMenu(void *, struct Menu *); 

void PrepWindowMenu(void *, struct Menu *); 

void BuildSystemMenu (WINDOW) ; 

int isActive(MENU *, int); 

void ActivateCommand (MENU *, int) ; 

void DeactivateCommand (MENU *, int) ; 

int GetCommandToggle (MENU *, int); 

void SetCommandToggle (MENU *, int); 

void ClearCommandToggle (MENU *, int); 

void InvertCommandToggle (MENU *, int) ; 


\ 
\ 
\ 


a tit in oo = i ‘ist box’ prototypes -=---~---+s4HH- */ 
int ItemSelected(WINDOW, int); 
me he rien eli edit box prototypes ----------- */ 


#ifdef INCLUDE MULTILINE 


#define isMultiLine (wnd) TestAttribute(wnd, MULTILINE) 


#else 

#define isMultiLine (wnd) FALSE 

#fendif 

/* --------- message box prototypes -------- * / 


void MessageBox(char *, char *); 
void ErrorMessage (char *); 

int TestErrorMessage (char *); 
int YesNoBox(char *) ; 

int MsgHeight (char *); 

int MsgWidth(char *); 


#ifdef INCLUDE DIALOG BOXES 

/®i--4++-------- dialog box prototypes -------------- */ 
int DialogBox (WINDOW, DBOX *, int (*) (struct window *,enum messages, PARAM, PARAM) ) ; 
int DlgOpenFile(char *, char *); 

int DlgSaveAs(char *) ; 

void GetDlgListText (WINDOW, char *, enum commands) ; 

int DlgDirList (WINDOW, char *, enum commands, enum commands, unsigned) ; 
int RadioButtonSetting(DBOX *, enum commands) ; 

void PushRadioButton(DBOX *, enum commands) ; 

void PutItemText (WINDOW, enum commands, char *); 

void GetItemText (WINDOW, enum commands, char *, int); 
void SetCheckBox(DBOX *, enum commands) ; 

void ClearCheckBox(DBOX *, enum commands) ; 

int CheckBoxSetting(DBOX *, enum commands) ; 

WINDOW ControlWindow(DBOX *, enum commands) ; 

CTLWINDOW *ControlBox(DBOX *, WINDOW) ; 

#endif 

Hist saan ios ensita ss e Pea help box prototypes ----------==- */ 
void HelpFunction (void) ; 

void LoadHelpFile(void) ; 

#define swap(a,b) {int x=a;a=b;b=x; } 


#endif 
End Listing One 
Listing Two 


#ifndef CONFIG_H 
#define CONFIG_H 


#define DFLAT APPLICATION "MEMOPAD" 


#ifdef BUILD_FULL_DFLAT 

#define INCLUDE_SYSTEM MENUS 

#define INCLUDE CLOCK 

#define INCLUDE MULTIDOCS 

#define INCLUDE SCROLLBARS 

#define INCLUDE SHADOWS , 

#define INCLUDE DIALOG BOXES - 
#define INCLUDE CLIPBOARD 
#define INCLUDE MULTILINE 

#define INCLUDE LOGGING 

#endif 





struct colors { : 
iat a RR CCL IS" array hier ent = * / 
char ApplicationFG, ApplicationBG; 


char NormalFG, NormalBG; 
char ButtonFG, ButtonBG; 
char ButtonSelFG, ButtonSelBG; 
char DialogFG, DialogBG; 
char ErrorBoxFG, ErrorBoxBG; 
char MessageBoxFG, MessageBoxBG; 
char HelpBoxFG, HelpBoxBG; 


char InFocusTitleFG, InFocusTitleBG; 


char TitleFG, TitleBG; 
char DummyFG, Dummy BG ; 
char TextBoxFG; Text BoxBG; 


(continued on page 177) 
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C PROGRAMMING 


Listing Two (Listing continued, text begins on page 149.) 


char TextBoxSelFG, Text BoxSelBG; 
char TextBoxFrameFG, TextBoxFrameBG; 
char ListBoxFG, ListBoxBG; . 
char ListBoxSelFG, ListBoxSelBG; 
char ListBoxFrameFG, ListBoxFrameBG; 
char EditBoxFG, EditBoxBG; 

char EditBoxSelFcG, EditBoxSelBG; 
char EditBoxFrameFG, EditBoxFrameBG; 
char MenuBarFG, MenuBarBG; 

char MenuBarSelFG, MenuBarSelBG; 
char PopDownFG, PopDownBG; 

char PopDownSelFG, PopDownSelBG; 
char InactiveSelFcG; 

char ShortCutFG; 


pS -concimawess configuration parameters ----------- */ 
typedef struct config { 
char version[sizeof DFLAT APPLICATION + sizeof VERSION]; 


char mono; /* O=color, l=mono, 2=reverse mono */ 
int InsertMode; /* Editor insert mode */ 
int Tabs; /* Editor tab stops A 
int WordWrap; /* True to word wrap editor */ 
int Border; /* True for application window border */ 
int Title; /* True for application window title */ 
int Texture; /* True for textured appl window */ 
int ScreenLines; /* Number of screen lines (25/43/50) ¥*/ 
struct colors clr; /* Colors */ 
} CONFIG; 


extern CONFIG cfg; 

extern struct colors color, bw, reverse; 
int LoadConfig (void) ; 

void SaveConfig(void) ; 


‘#endif 
e e 
End Listing Two 
e e 
Listing Three 
/*® ---------- window.c ------------- */ 
#include <stdio.h> 
#include <conio.h> 
#include <stdlib.h> 
#include <string.h> 
#include <dos.h> 
#include "dflat.h" 
WINDOW inFocus = NULLWND; 
int foreground, background; /* current video colors */ 
static void TopLine(WINDOW, int, RECT); 
[*® --------- create a window ~------------ */ 
WINDOW CreateWindow ( 
CLASS class, /* class of this window */ 
char *ttl, /* title or NULL */ 
int left, int top, /* upper left coordinates & / 
int height, int width, /* dimensions */ 
void *extension, /* pointer to additional data */ 
WINDOW parent, /* parent of this window * / 
int (*wndproc) (struct window *,enum messages, PARAM, PARAM), 
int attrib) /* window attribute * / 
{ 
WINDOW wnd = malloc(sizeof(struct window) ); 
get_videomode () ; 
if (wnd != NULLWND) { 
int base; 
[* ---=- height, width = -1: fill the screen ------- */ 
if (height == -1) : 
height = SCREENHEIGHT; 
ir (Width s= <1} 
width = SCREENWIDTH; 
/* ---~-- coordinates -1, -1 = center the window ---- #*/ 
if (left == -1) 
wnd->rce.lf = (SCREENWIDTH-width) /2; 
else 
wnd->rc.1lf = left; 
LE (toe == -1) 
wnd->rc.tp = (SCREENHEIGHT-height) /2; y 
else 
wnd->rce.tp = top; 
wnd->attrib = attrib; 
if (ttl != NULL) 
AddAttribute(wnd, TITLEBAR); 
if (wndproc == NULL) 
“. wnd->wndproc = classdefs[{FindClass (class) ] .wndproc; 
else . 
“wnd->wndproc = wndproc; m 
/* ---- derive attributes of base classes ---- */ . 
base = class; 
while (base != -1) { 


int tclass = FindClass(base); 
AddAttribute(wnd, classdefs[tclass] .attrib); 
base = classdefs[tclass] .base; 
} 
if (parent && !TestAttribute(wnd, NOCLIP)) { 
/* -- keep upper left within borders of parent - */ 
wnd->rc.1lf = max(wnd->rc.1f,GetClientLeft (parent) ); 
wnd->re.tp = max(wnd->rce.tp,GetClientTop (parent) ); 
} 
wnd->class = class; 
wnd->extension = extension; 
wnd->re.rt = GetLeft (wnd) +width-1; 
wnd->re.bt = GetTop(wnd)+height-1; 
wnd->ht = height; 
wnd->wd = width; 
wnd->title = NULL; 
if (ttl != NULL) 
InsertTitle(wnd, ttl); 


Dr. Dobb’s Journal, August 1991 


wnd->next = wnd->prev = wnd->dFocus = NULLWND; 
wnd->parent = parent; : 
wnd->videosave = NULL; 
wnd->condition = ISRESTORED; 
wnd->restored attrib = 0; 
wnd->RestoredRC = wnd->rc; 
wnd->PrevKeyboard = wnd->PrevMouse = NULL; 
wnd->DeletedText = NULL; 
SendMessage(wnd, CREATE WINDOW; 0, 0); 
if (isVisible(wnd) ) 

SendMessage(wnd, SHOW.WINDOW, 0, 0); 


} 
return wnd; 
} 
/*® -------- add a title to a window --------- */ 
void AddTitle (WINDOW wnd, char *tt1) 
fy 
InsertTitle(wnd, ttl); 
SendMessage(wnd, BORDER, 0, 0); 
} 
/* ----- insert a title into a window ---------- */ 
void InsertTitle(WINDOW wnd, char *tt1l) 
{ 
if ((wnd->title=realloc(wnd->title,strien(ttl)4+1)) != NULL) 
strepy(wnd->title, ttl); 
} 
/* ------- write a character to a window area at x,y ------- * / - 
void PutWindowChar (WINDOW wnd, int x, int y, int c) 
{ 
int xl = GetLeft (wnd) +x; 
int yl = GetTop(wnd) ty; 
if (isVisible(wnd) ) { 
if (!TestAttribute(wnd, NOCLIP)) { 
WINDOW wndi = GetParent (wnd) ; 
while (wndl != NULLWND) { 
/* --- clip character to parent's borders -- */ 
if (xl < GetClientLeft (wnd1) . 
x1 > GetClientRight(wndl) || 
yl > GetClientBottom(wndl) |; 
yl < GetClientTop (wnd1) ) 
return; 
wndl = GetParent (wnd1); 
} 
} - 
if (xl < SCREENWIDTH && yl < SCREENHEIGHT) 
wputch(wnd, c, x, y); 
} 
} 


static char line[161]; 
#ifdef INCLUDE_SYSTEM MENUS 


i. a clip line if it extends below the bottom of parent window ------ */ 
static int clipbottom(WINDOW wnd, int y) ' 
{ 
if (!TestAttribute(wnd, NOCLIP) ) { 
WINDOW wndl = GetParent (wnd) ; 
while (wnd1 != NULLWND) { 


if (GetClientTop(wnd)+y > GetClientBottom(wnd1) +1) 
return TRUE; 
wndl = GetParent (wnd1) ; 
} 
} 
return GetTop(wnd)+y > SCREENHEIGHT; 
} . 
/* -- clip portion of line that extends past right margin of parent window-- */ 
void clipline(WINDOW wnd, int x, char *ln) 


{ 
WINDOW pwnd = GetParent (wnd) ; 
int xl = strlen(ln); 
int: 2.0; 
if (!TestAttribute(wnd, NOCLIP) ) { 
while (pwnd != NULLWND) { 
xl = GetClientRight (pwnd) - GetLeft(wnd) - x +1; 
pwnd = GetParent (pwnd) ; 
} 
} ‘ 
else if (GetLeft(wnd) + x > SCREENWIDTH) 
Xl = SCREENWIDTH-GetLeft (wnd) - x; 
/* --- adjust the clipping offset for color controls --- */ 
it (el < 0) 
x = 0: 
while (i < xl) { 
if ((unsigned char) ln[i] == CHANGECOLOR) 
i += 3, xl += 3; 
else if ((unsigned char) ln[i] == RESETCOLOR) 
l++, Xl++; 
else 
l++; 
} 
dn sek} = 403 
} 
#else 
#define clipbottom(w,y) FALSE 
#endif 
[® ------ write a line to video window client area ------ +/ 
void writeline (WINDOW wnd, char *str, int x, int y, int pad) 
{ 


static char wline[{120]; 
if (!clipbottom(wnd, y)) 
{ 
char *cp; ) 
int len; 
int dif; 
memset (wline, 0, sizeof wline); 
len = LineLength(str) ; 


dif = strlen(str) - len; 
strncpy(wline, str, ClientWidth(wnd) + dif); 
if (pad) { 


cp = wline+strlen(wline) ; 
while (len++ < ClientWidth (wnd) -x) 
*cpt+ = ' [7 


(continued on page 178) 
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MAKE YOUR GRAPHICS 


eT 
AS EASY AS A CALL! 


CALL INIGRF (Supports over 250 output devices) 
CALL AXIS (Draws line any length at any angle) 
CALL SYMBOL (Plots text using any of 13 different fonts) 


CALL GEOGRAF 


(Supports BASIC, C & FORTRAN) 


Mainframe graphics can be added to any PC program 
by simply making a CALL to GEOCOMP. Real-time 
graphs, device independence, variable line types and 
batch processing are just a few of the features that 
make GEOGRAF an indispensable graphics library. 


Designed with Engineering and Scientific users in mind. 
GEOGRAF is compatible with the widely used Calcomp 
graphics library, enabling you to quickly convert your 
mainframe graphics code to run from within your own 
PC code. With years of satisfied users at NASA, MIT 
and SHELL OIL, GEOGRAF is ready to handle your 
graphics needs now. 


Stop working so hard to program your graphs, make 
the CALL TO GEOCOMP at (800) 822-2669. 


GEOCOMP Corporation 


66 Commonwealth Avenue Concord, MA 01742 
(508) 369-8304 
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Do you need a team of 
MS-Windows or Macintosh 
software development experts? 


We're an established 
software development 
firm with an 8 year 
history of success. Our 
large, experienced 
software engineering 


OS/2-PM, DOS and 
Macintosh. We've 
developed many 
award-winning products 
for our clients. But don't 
take our word for it, 
send for our portfolio 
and our free 

booklet today, 

How to Select 

and Evaluate 
Software Develop- 
ment Companies. 


TPS Turning Point 
230 Western Ave., Boston, MA 02134 
617-782-4877 


staff is available for 
new product design 
and development, 
conversions and 
special projects. Our 
expertise includes 
Windows, 
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C PROGRAMMING 


Listing Three (Listing continued, text begins on page 149.) 


} 
clipline(wnd, x, wline); 
wputs(wnd, wline, x, y); 
} 
} 
/* ~~ write a line to video window (including the border) -- */ 
void writefull (WINDOW wnd, char *str, int y) 
{ 
if (!clipbottom(wnd, y)) { 
strcepy(line, str); 
clipline(wnd, 0, line); 
wputs(wnd, line, 0, y); 


} : 
RECT AdjustRectangle (WINDOW wnd, RECT rc) 
{ 


/*® -------- adjust the rectangle ------- | a 
if (TestAttribute(wnd, HASBORDER) ) { 
if (RectLeft(re) == 0) 
=a. ES ; 
else if (RectLeft(rc) < RectRight(rc) && 
RectLeft (rc) < WindowWidth (wnd) +1) 
~-rce.lf; 


} 
if (TestAttribute(wnd, HASBORDER | TITLEBAR) ) { 
if (RectTop(rc) == 0) 
--re.bt; 
else if (RectTop(rc) < RectBottom(rc) && 
RectTop(rc) < WindowHeight (wnd) +1) 


==06, tps 
} : 
RectRight (rc) = max(RectLeft (rc) ,min(RectRight (rc) ,WindowWidth(wnd))); 
RectBottom(rc) = max(RectTop(rc) ,min(RectBottom(rc) ,WindowHeight (wnd) )); 
return rc; 
} 
[e apeee display a window's title --------- wl 


void DisplayTitle (WINDOW wnd, RECT *rcc) 
( 


int tlen = min(strlen(wnd->title), WindowWidth (wnd)-2); 
int tend = WindowWidth(wnd) -3-BorderAd} (wnd) ; 
RECT rc; 
if (rec == NULL) 
rc = RelativeWindowRect (wnd, WindowRect (wnd)); 


else 
YC = *rcc; 
rc = AdjustRectangle(wnd, rc); 
if (SendMessage(wnd, TITLE, LPARAM(rcc), 0)) { 
if (wnd == inFocus) { 
foreground = cfg.clr.InFocusTitleFG; 
background = cfg.clr.InFocusTitleBG; 
} 
else { 


foreground = cfg.clr.TitleFG; 
background = cfg.clr.TitleBG; 


memset (line,' ',WindowWidth(wnd)); 
if (wnd->condition != ISMINIMIZED) 
strncpy (line + ((WindowWidth(wnd)-2 - tlen) / 2), 
wnd->title, tlen); 
if (TestAttribute(wnd, CONTROLBOX) ) 
line [2-BorderAdj (wnd)] = CONTROLBOXCHAR; 
#ifdef INCLUDE SYSTEM MENUS 
if (TestAttribute(wnd, MINMAXBOX) ) ‘i 
switch (wnd->condition) { 
case ISRESTORED: 
line[tend+1] = MAXPOINTER; 
line [tend] = MINPOINTER; 
break; 
case ISMINIMIZED: 
line[{tend+1] = MAXPOINTER; 
break; 
case ISMAXIMIZED: ‘ 
line [tend] = MINPOINTER; 
line[tend+1] = RESTOREPOINTER; 
break; 
default: 
break; 
} 
} 
#fendif 
line{RectRight (rc)+1] = line[tend+3] = '\0'; 
writeline(wnd, line+RectLeft (rc), 
Rect Left (rc) +BorderAdj (wnd) , 
0 


FALSE) ; 
} 


} 

#ifdef INCLUDE_SHADOWS 

/* --- display right border shadow character of a window --- */ 
static void near shadow char (WINDOW wnd, int y) 

{ 


int fg = foreground; 

int bg = background; 

int x = WindowWidth(wnd) ; 

int c = videochar (GetLeft (wnd)+x, GetTop(wnd) +y); 


if (TestAttribute(wnd, SHADOW) == 0) 
return; 

foreground = DARKGRAY; 

background = BLACK; 

PutWindowChar(wnd, x, y, C); 

foreground = fg; 

background = bg; 
} 
/* --- display the bottom border shadow line for a window: -- */ 
static void near shadowline (WINDOW wnd, RECT rc) 
‘ 


int i; 
int y = GetBottom(wnd) +1; 
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i memset (line, lin,WindowWidth (wnd) -1); 
if ((TestAttribute(wnd, SHADOW)) == 0) #ifdef INCLUDE SCROLLBARS 


return; if (TestAttribute(wnd, HSCROLLBAR) ) { 
if (!clipbottom(wnd, WindowHeight (wnd) ) ) { line[0] = LEFTSCROLLBOX; 
int fg = foreground; line [WindowWidth(wnd) -3] = RIGHTSCROLLBOX; 
int bg = background; memset (line+1, SCROLLBARCHAR, WindowWidth (wnd) -4) ; 
for (i = 0; i < WindowWidth(wnd)+1; i++) line [wnd->HScrol1lBox] = SCROLLBOXCHAR; 
line[i] = videochar(GetLeft (wnd)+i, y); 
lane [iia "NO" > #endif 
foreground = DARKGRAY; line [WindowWidth(wnd)-2] = line[RectRight(rc)] = '\0'; 
background = BLACK; (RectLeft (rc) != RectRight(rc) |; 
clipline(wnd, 1, line); (RectLeft (rc) && RectLeft(rc) < WindowWidth (wnd) -1) ) 
line[RectRight (rc)+1] = '\0'; writeline{wnd, 
if (RectLeft(rc) == 0) line+(RectLeft (clrc)), 
rc. 1lf++; RectLeft (clrc) +1, 
wputs(wnd, line+RectLeft (rc), RectLeft (rc) ,WindowHeight (wnd)) ; WindowHeight (wnd) -1, 
foreground = fg; FALSE) ; 
background = bg; #ifdef INCLUDE SHADOWS 
} if (RectRight (rc) == WindowWidth (wnd) ) 
} shadow _char(wnd, WindowHeight (wnd) -1) ; 
#endif #endif 
Nfeathiearde St ascht display a window's border ----- */ } 
void RepaintBorder (WINDOW wnd, RECT *rcc) #ifdef INCLUDE SHADOWS 
{ if (RectBottom(rc) == WindowHeight (wnd) ) 
int y; /* ---------- bottom shadow ------------- * / 
int lin, side, ne, nw, se, sw; shadowline(wnd, rc); 
RSP Te, -Cbhres #endif + 
if (!TestAttribute(wnd, HASBORDER) ) } 
return; static void TopLine(WINDOW wnd, int lin, RECT rc) 
if (rcc == NULL) { { 
rc = RelativeWindowRect (wnd, WindowRect (wnd) ) ; if (TestAttribute(wnd, TITLEBAR ; HASMENUBAR) ) 
#ifdef INCLUDE SHADOWS return; 
if (TestAttribute(wnd, SHADOW) ) { if (RectLeft (rc) < RectRight (rc) ) { 
rc.rt++; [*® ----------- top line ------------- * / 
rc. bt++; memset (line, lin, WindowWidth (wnd) -1) ; 
} line[RectRight (rc)] = '\0'; 
#endif writeline(wnd, line+RectLeft (rc), 
} RectLeft (rc)+1, 0, FALSE); 
else } 
CO) <= *reG; } 
clrc = AdjustRectangle(wnd, rc); /* ------ clear the data space of a window -------- */ 
if (wnd == inFocus) { void ClearWindow(WINDOW wnd, RECT *rcc, int clrchar) 
lin = FOCUS LINE; { 
side = FOCUS SIDE; if (isVisible(wnd) ) { 
ne = FOCUS_NE; int y; 
nw = FOCUS NW; RECT sey 
se = FOCUS SE; if (rcc == NULL) 
sw = FOCUS Sw; rc = RelativeWindowRect (wnd, WindowRect (wnd) ) ; 
} else 
else { fo;= 4nec 
tins = LINE: if (RectLeft (rc) == 0) 
side = SIDE; RectLeft (rc) = BorderAdj (wnd) ; 
ne = NE; if (RectRight (rc) > WindowWidth (wnd) -1) 
nw = WW; RectRight (rc) = WindowWidth(wnd)-1; 
idl (continued on page 180) 
} 
line [WindowWidth(wnd)] = '\0'; 
[* ---------- window title ------------ * / 
if (TestAttribute(wnd, TITLEBAR) ) 
if (RectTop(rc) == 0) ORAL bas 


if (RectLeft(rc) < WindowWidth(wnd) -BorderAdj (wnd) ) 
DisplayTitle(wnd, &rc); 
foreground = FrameForeground (wnd) ; 
background = FrameBackground (wnd) ; 
ee = top frame corners --------- * / 
if (RectTop(rc) == 0) { 
if (RectLeft(rc) == 0) 
PutWindowChar(wnd, 0, 0, nw); 
if (RectLeft (rc) < WindowWidth (wnd) ) { 
if (RectRight (rc) >= WindowWidth(wnd) -1) 
PutWindowChar (wnd, WindowWidth(wnd)’-1, 0, ne); 
TopLine(wnd, lin, rc); 


PR wot ote ote window body ------------ */ 
for (y = RectTop(rc); y <= RectBottom(rc); y++) { 
int ch; 
if (y == 0 ii y >= WindowHeight (wnd) -1) 
continue; 
if (RectLeft (rc) == 0) 


PutWindowChar(wnd, 0, y, side); 
if (RectLeft(rc) < WindowWidth(wnd) && 
RectRight (rc) >= WindowWidth (wna) -1) { 
#ifdef INCLUDE SCROLLBARS 
if (TestAttribute(wnd, VSCROLLBAR) ) 
en = ( y == 1 ? UPSCROLLBOX : 
y == WindowHeight (wnd)-2 ? 
DOWNSCROLLBOX : 
y-1 == wnd->VScrol1lBox ? 
‘SCROLLBOXCHAR : 
SCROLLBARCHAR ); 
else 
#endif 
ch = side; 
PutWindowChar (wnd, WindowWidth(wnd)-1, y, ch); 


} 
#ifdef INCLUDE SHADOWS 
if.(RectRight (rc) == WindowWidth (wnd) ) 
shadow_char(wnd, y); 
#endif 
} 
if (RectTop(rc) <= WindowHeight (wnd)-1 && 
RectBottom(rc) >= WindowHeight (wnd) -1) { 
Ve tadaten er ate bottom frame corners ---------- */ 
if. (RectLeft (rc) == 0) 
PutWindowChar (wnd@, 0, WindowHeight (wnd)-1, sw); 
if (RectLeft(rc) < WindowWidth(wnd) && 
RectRight (rc) >= WindowWidth (wnd) -1) 
PutWindowChar (wnd, WindowWidth(wnd) -1, 
WindowHeight (wnd)-1, se); 
/# ----------- bottom line ------------- * / 
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C PROGRAMMING 


Listing Three (Listing continued, text begins on page 149.) 


SetStandardColor (wnd) ; 
memset (line, clrchar, sizeof line); 
line[RectRight (rc)+1] = '\0'; 
for (y = RectTop(rc); y <= RectBottom(rc); y++) 
if (y < TopBorderAdj(wnd) || 
y >= WindowHeight (wnd) -1) 
continue; 
writeline(wnd, 
line+(RectLeft (rc) ), 
RectLeft (re), 
Yy, 
FALSE) ; 





} 
} 
/* -- adjust. a window's rectangle to clip it to its parent -- */ 
Static RECT near ClipRect (WINDOW wnd) 
{ 
RECT rc; 
re = wnd-sre; 
#ifdef INCLUDE SHADOWS 
if (TestAttribute(wnd, SHADOW) ) 
RectBottom(rc) ++; 
RectRight (rc) ++; 


} 
#endif 
if (!TestAttribute(wnd, NOCLIP) ) 
WINDOW pwnd = GetParent (wnd) ; 
if (pwnd != NULLWND) { 
RectTop(rc) = max(RectTop(rc), 
GetClientTop (pwnd) ) ; 
RectLeft (rc) = max(RectLeft (rc), 
GetClientLeft (pwnd) ) ; 
RectRight (rc) = min(RectRight (rc), 
GetClientRight (pwnd) ); 
RectBottom(rc) = min(RectBottom(rc), 
GetClientBottom(pwnd) ); 
} 
} 
RectRight (rc) = min(RectRight (rc), SCREENWIDTH-1) ; 
RectBottom(rc) = min(RectBottom(rc), SCREENHEIGHT-1) ; 
RectLeft (rc) = min(RectLeft (rc), SCREENWIDTH-1) ; 
RectTop(rc) = min(RectTop(rc), SCREENHEIGHT-1) ; 
return: ro; 





} 


/* -- get the video memory that is to be used by a window -- */ 
void GetVideoBuf fer (WINDOW wnd) 
{ 
RECT rc: 
int ht; 
int wd; 
re = ClipRect (wnd) ; 


ht = RectBottom(rc) - RectTop(rc) + 1; 
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Get All of 198 


Some 1989 issues of Dr. Dobb’s Journal 
have already sold out and are now out of 
print. For anyone wanting those back 
issues from 1989, BOUND VOLUME 14 
offers you all 12 issues in one huge volume! 
Also included are the Dr. Dobb’s 
Macintosh Journal and the Dr. Dobb’s C 
Sourcebook special issues. To complete the 
package, you will receive the year’s 


worth of source code (on four MS-DOS 
disks)—AT NO EXTRA CHARGE! 





Previousely offered at $49.95, you now get: 
e All of 1989’s issues of Dr. Dobb’s Journal 
¢ Two additional Special Issues 
e Four FREE source code disks 
e All for only $19.89 — 


The 1989 issues are bound in a single, 1,051 page volume weighing 
over 5 pounds! This substantial book will make a handsome and useful 
addition to any library. 








wd = RectRight (rc) - RectLeft(rc) + 1; 
wnd->videosave = realloc(wnd->videosave;% 
get_videomode () ; 
if (wnd->videosave != NULL) 

getvideo(rc, wnd->videosave) ; 


(ht * wd * 2)); 


} 
/* --- restore the video memory that was used by a window -- */ 
void RestoreVideoBuffer (WINDOW wnd) 
{ 
if (wnd->videosave != NULL) 

RECT re; 

re = ClipRect (wnd) ; 

storevideo(rc, wnd->videosave) ; 

free (wnd->videosave) ; 

wnd->videosave = NULL; 


} 
compute the logical line length of a window 
int LineLength(char *ln) 
{ 
int len = strlen(ln); 
char *cp = In; 
while ((cp = strchr(cp, CHANGECOLOR) ) 
cCpt+; 
len -= 3; 


!= NULL) 


} 

Cp =.cla 
while ((cp = 
Cp++}7 

--len; 


strchr(cp, RESETCOLOR)) != NULL) 


} 


return len; 


End Listings 
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GRAPHICS PROGRAMMING 


Listing One (Text begins on page 165.) 


/* Program to demonstrate mode X (320x240, 256 colors) patterned 
rectangle fills by filling the screen with adjacent 80x60 
rectangles in a variety of patterns. Tested with Borland C++ 
2.0 in C compilation mode and the small model */ 

#include <conio.h> 

#include <dos.h> 


void Set320x240Mode (void) ; 
void FillPatternX(int, int, int, int, unsigned int, char*); 


/* 16 4x4 patterns */ 


static char Patt0[]={10,0,10,0,0,10,0,10,10,0,10,0,0,10,0,10}; 
static char Pattl[]={9,0,0,0,0,9,0,0,0,0,9,0,0,0,0,9}; 
static char Patt2(]={5,0,0,0,0,0,5,0,5,0,0,0,0,0,5,0}; 
static char Patt3[]={14,0,0,14,0,14,14,0,0,14,14,0,14,0,0,14}; 
static char Patt4[]={15,15,15,1,15,15,1,1,15,1,1,1,1,1,1,1); 
static char Patt5[]={12,12,12,12,6,6,6,12,6,6,6,12,6,6,6,12}; 
static char Patt6[{]={80,80,80,80,80, 80,80, 80,80, 80, 80, 80, 80, 80, 80,15}; 
static char Patt7[]={78,78,78,78,80,80, 80,80, 82,82, 82,82, 84,84, 84, 84}; 
static char Patt8[]={78,80,82,84,80, 82,84, 78,82, 84,78, 80,84, 78, 80, 82}; 
static char Patt9[]={78,80,82,84,78,80,82,84,78,80,82,84, 78,80, 82,84}; 
static char Pattl0[]={0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}; . 
static char Pattll[]=(0,1,2,3,0,1,2,3,0,1,2,3,0:1,2,3}} 
static char Pattl12[]={14,14,9,9,14,9,9,14,9,9,14,14,9,14,14,9}; 
static char Patt13(]}={15,8,8,8,15,15,15,8,15,15,15,8,15,8,8,8}; 
static. char Pattld|l={3,3/3,9¢.30 7s frdede de ta Badr oe de Bhs 
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static char Patt15[]={0,0,0,0,0,64,0,0,0,0,0,0,0,0,0,89}; 
/* Table of pointers to the 16 4x4 patterns with which to draw */ 
static char* PattTable[] = {Patt0,Patt1,Patt2, Patt3, Patt4, Patt5, Patté, 
Patt7, Patt8, Patt9, Patt10, Patt11, Patt12, Patt13, Pattl14, Patt15}; 
void main() { 
ie 4, 73 
union REGS regset; 


Set320x240Mode () ; 
for (j = 0; j < 4; j++) { 
for (i = 0; i < 4; i++) { 
FillPatternx (i*80, j*#60, i*80+80, j#60+60,0, PattTable[j#4+i]); 
} 
} 
getch(); 
regset.x.ax = 0x0003;  /* switch back to text mode and done #/ 
int86(0x10, &regset, &regset); 


End Listing One 


Listing Two 


; Mode X (320x240, 256 colors) rectangle 4x4 pattern fill routine. 

; Upper left corner of pattern is always aligned to a multiple-of-4 

; row and column. Works on all VGAs. Uses approach of copying the 

; pattern to off-screen display memory, then loading the latches with 
; the pattern for each scan line and filling each scan line four — 
; pixels at a time. Fills up to but not including the column at Endx 
; and the row at EndY. No clipping is performed. All ASM code tested 
; with TASM 2. C near-callable as: 

; void FillPatternedX(int StartX, int StartY, int EndX, int Endy, 
; unsigned int PageBase, char* Pattern); 


SC_INDEX equ 03c4h 
MAP MASK equ 02h 


;Sequence Controller Index register port 
;index in SC of Map Mask register 
GC_INDEX equ O03ceh ;Graphics Controller Index register port 
BIT MASK equ 08h ;index in GC of Bit Mask register 
PATTERN BUFFER equ O0fffch ;offset in screen memory of the buffer used 
; to store each pattern during drawing 
SCREEN_SEG equ 0a000h ;segment of display memory in mode X 
SCREEN WIDTH equ 80 ;width of screen in addresses from one scan 
; line to the next 
parms struc 


dw 2 dup (?) ;pushed BP and return address 

StartX dw ? ;X coordinate of upper left corner of rect 

StartY dw . ? ;Y coordinate of upper left corner of rect 

EndxX dw ? ;X coordinate of lower right corner of rect 
; (the row at EndX is not filled) 

Endy dw ? ;¥ coordinate of lower right corner of rect 
; (the column at Endy is not filled) 

PageBase dw ? base offset in display memory of page in 
; which to fill rectangle 

Pattern dw ? ;4x4 pattern with which to fill rectangle 


parms ends 
NextScanOffset equ -2 ;local storage for distance from end of one 

; scan line to start of next 

;local storage for address width of rectangle 
;local storage for height of rectangle 


RectAddrWidth equ -4 
Height equ -6 
STACK_FRAME SIZE equ 6 


.model small 


.data 
; Plane masks for clipping left and right edges of rectangle. 
LeftClipPlaneMask db 00fh, 00eh, 00ch, 008h 
RightClipPlaneMask db 00fh,001h, 003h, 007h 

code 


public FillPatternx 
_FillPatternX proc near 
push bp ;preserve caller's stack frame 
mov bp,sp j;point to local stack frame 
sub sp, STACK FRAME SIZE ;allocate space for local vars 


push si ;preserve caller's register variables 
push di 
cld 
mov ax,SCREEN SEG j;point ES to display memory 
mov es,ax 
;copy pattern to display memory buffer 
mov si, [bp+Pattern] ;point to pattern to fill with 


Dr. Dobb's Journal, August 1991 


mov di, PATTERN BUFFER ;point ES:DI to pattern buffer 
mov dx, SC_INDEX ;point Sequence Controller Index to 
mov al,MAP MASK ; Map Mask 
out dx,al 
inc ax ;point to SC Data register 
Mov Cx, 4 74 pixel quadruplets in pattern 
DownloadPatternLoop: 
mov al,1l ; 
out dx,al ;select plane 0 for writes 
movsb ;copy over next plane 0 pattern pixel 
dec di ;stay at same address for next plane 
Mov al,2 ; 
out dx,al ;select plane 1 for writes 
movsb ;copy over next plane 1 pattern pixel 
dec di ;stay at same address for next plane 
MOV .al,4 ; 
out dx,al ;select plane 2 for writes 
movsb ;copy over next plane 2 pattern pixel 
dec di ;stay at same address for next plane 
Mov al,8 ; 
out dx,al ;select plane 3 for writes 
movsb ;copy over next plane 3 pattern pixel 
; and advance address 
loop DownloadPatternLoop 
Mov dx,GC_INDEX ;set the bit mask to select all bits 
mov ax, 00000h+BIT MASK ; from the latches and none from * 
out ax, ax ; the CPU, so that we can write the 
; latch contents directly to memory 
mov ax, [bp+StartY] ;top rectangle scan line 
MOV $i,ax 
and si,01lib ;top rect scan line modulo 4 
add Si, PATTERN BUFFER ;point to pattern scan line that 
; Maps to top line of rect to draw 
mov dx, SCREEN WIDTH 
mul ax ;offset in page of top rectangle scan line 
mov di, [bp+Startx] 
MOV bx, di 
shr di,1 ;X/4 = offset of first rectangle pixel in scan 
shr di,1 ; line 
add di,ax ;offset of first rectangle pixel in page 
add di, [bp+PageBase] ;offset of first rectangle pixel in 
; display memory 
and bx, 0003h ;look up left edge plane mask 
mov ah, LeftClipPlaneMask[bx] ; to clip 
Mov bx, [bp+Endx] 
and bx, 0003h ;look up right edge plane . 
Mov al,RightClipPlaneMask[bx] ; mask to clip 
mov bx, ax ;put the masks in BX 
MOV cx, [bp+Endx] ;calculate # of addresses across rect 
mov ax, [bp+StartX] 
cmp CxX,ax 
jle FillDone ;skip if 0 or negative width 
dec cx 
and ax,not 011b 
sub CX, ax 
shr cx, 1 
shr cx,1 ;# of addresses across rectangle to fill - 1 
jnz MasksSet ;there's more than one pixel to draw 
and _bh,bl ;there's only one pixel, so combine the left 
; and right edge clip masks 
MasksSet : 
mov ax, [bp+EndY] 
sub ax, [bp+StartY] ;AX = height of rectangle 
jle FillDone ;skip if 0 or negative height 
Mov [bp+Height ] , ax 
mov ax, SCREEN WIDTH 
sub ax,cx  ;distance from end of one scan line to start 
dec ax ; of next 
mov [bp+NextScanOffset] ,ax 
mov [bp+RectAddrWidth],cx ;remember width in addresses - 1 
Mov dx, SC_INDEX+1 ;point to Sequence Controller Data reg 
; (SC Index still points to Map Mask) 
FillRowsLoop: 
MOV cx, [bp+RectAddrwWidth] ;width across - 1 
mov al,es:[si] ;read display memory to latch this scan 
; line's pattern 
inc si ;point to the next pattern scan line, wrapping 
jnz short NoWrap ; back to the start of the pattern if 
sub si,4 ; we've run off the end 
NoWrap: 
mov al,bh ;put left-edge clip mask in AL 
out dx,al ;set the left-edge plane (clip) mask 
stosb ;draw the left edge (pixels come from latches; 
; value written by CPU doesn't matter) 
dec cx ;count off left edge address 
js FillLoopBottom ;that's the only address 
12 DoRightEdge ;there are only two addresses 
mov al,00fh ;middle addresses are drawn 4 pixels at a pop 
out dx,al  ;set the middle pixel mask to no clip 
rep stosb ;draw the middle addresses four pixels apiece 
; (from latches; value written doesn't matter) 
DoRightEdge: 
mov al,bl  ;put right-edge clip mask in AL 
out dx,al ;set the right-edge plane (clip) mask 
stosb ;draw the right edge (from latches; value 
; written doesn't matter) 
Fill LoopBottom: 
add di, [bp+NextScanOffset] ;point to the start of the next scan 
' '; line of the rectangle 
dec word ptr [bp+Height] ;count down scan lines 
jnz ‘Fill RowsLoop 
FillDone: 
mov dx,GC_INDEX+1 ;restore the bit mask to its default, 
mov al, 0ffh ; which selects all bits from the CPU 
out dx,al ; and none from the latches (the GC 
; Index still points to Bit Mask) 
pop di ;restore caller's register variables 
pop si 


(continued on page 182) 


181 





CS TOON IE Ae 


eee Me VERE IS, BEES, Se ee Aer eee 





GRAPHICS PROGRAMMING 


Listing Two (Listing continued, text begins on page 165.) 


mov sp,bp j;discard storage for local variables 


pop bp restore caller's stack frame 
ret 

_FillPatternx endp 
end 


End Listing Two 
Listing Three 


Mode X (320x240, 256 colors) display memory to display memory copy 
routine. Left edge of source rectangle modulo 4 must equal left edge 
of destination rectangle modulo 4. Works on all VGAs. Uses approach 
of reading 4 pixels at a time from the source into the latches, then 
writing the latches to the destination. Copies up to but not 
including the column at SourceEndX and the row at SourceEndy. No 


destination overlap. C near-callable as: 
void CopyScreenToScreenx(int SourceStartX, int SourceStartyY, 


int SourceEndx, int SourceEndy, int DestStartx, 
int DestStartY, unsigned int SourcePageBase, 
unsigned int DestPageBase, int SourceBitmapWidth, 


; clipping is performed. Results are not guaranteed if the source and 


int DestBitmapWidth) ; 


SC_INDEX equ 03c4h  ;Sequence Controller Index register port 
MAP_MASK equ 02h ;index in SC of Map Mask register 
GC_INDEX equ 03ceh Graphics Controller Index register port 
BIT MASK equ 08h ;index in GC of Bit Mask register 


SCREEN SEG equ 


parms struc 
dw 
SourceStartX dw 
SourceStartY dw 
SourceEndX dw 


0a000h ;segment of display memory in mode xX 


2 dup (?) ;pushed BP and return address 

? ;X coordinate of upper left corner of source 

? ;Y coordinate of upper left corner of source 

? ;X coordinate of lower right corner of source 
; (the row at SourceEndX is not copied) 


SourceEndY dw ? ;Y coordinate of lower right corner of source 
; (the column at SourceEndY is not copied) 

DestStartX dw ? ;X coordinate of upper left corner of dest 

DestStartY dw ? ;Y coordinate of upper left corner of dest 


SourcePageBase dw ? 


| DestPageBase dw 


sbase offset in display memory of page in 
; which source resides 

? sbase offset in display memory of page in 
; which dest resides 


SourceBitmapWidth dw ? ;# of pixels across source bitmap 


DestBitmapWidth 


_parms ends 
SourceNextScanOffset equ -2 
DestNextScanOffset equ -4 
Rectaddrwidth equ -6 


; (must be a multiple of 4) 
dw ? ;# of pixels across dest bitmap 
; (must be a multiple of 4) 


;local storage for distance from end of 
; one source scan line to start of next 
; local storage for distance from end of 
; one dest scan line to start of next 
;local storage for address width of rectangle 


Height equ -8 ;local storage for height of rectangle 
STACK_FRAME SIZE equ 8 

-model small 

.data 


; Plane masks for clipping left and right edges of rectangle. 


LeftClipPlaneMask db 00fh, 00eh, 00ch, 008h 
RightClipPlaneMask db 00fh, 001h, 003h, 007h 
.code 
public _CopyScreenToScreenx 
_CopyScreenToScreenX proc near 
push bp ipreserve caller's stack frame 
mov bp,sp ;point to local stack frame 
sub Sp, STACK FRAME SIZE ;allocate space for local vars 
push si ;preserve caller's register variables 
push di 
push ds 
cld 
MOv dx,GC_INDEX ;set the bit mask to select all bits 
mov ax,00000h+BIT_MASK ; from the latches and none from 
out dx, ax ; the CPU, so that we can write the 
; latch contents directly to memory 
mov ax,SCREEN SEG ;point ES to display memory 
mov es, ax 
mov ax, [bp+DestBitmapWidth] 
shr ax,1 ;convert to width in addresses 
shr ax,1 
mul [bp+DestStartY] ;top dest rect scan line 
Mov di, [bp+DestStartx] 
shr di,1 :X/4 = offset of first dest rect pixel in i" 
shr 2 6 ae ; scan line 
add di,ax j;offset of first dest rect pixel in’ page 
add di, [bp+Dest PagéBase] ;offset of first dest rect pixel 
; in display memory 
mov ax, [bp+SourceBitmapWidth] 
shr ax,1 convert to width in addresses 
shr ax, 1 
mul [bp+SourceStartY] ;top source rect scan line 
Mov si, [bp+SourceStartx] 
mov bx, si 
shr si,l iX/4 = offset of first source rect pixel in 
shr si,l ; scan line 
add si,ax ;offset of first source rect pixel in page 
add si, [bp+SourcePageBase] ;offset of first source rect 
; pixel in display memory 
and bx, 0003h " : ;look up left edge plane mask 
mov ah, LeftClipPlaneMask[bx] ; to clip 
mov bx, [bp+SourceEndx] 
and bx, 0003h ;look up right edge plane 
mov al,RightClipPlaneMask [bx] ; mask to clip 
mov bx, ax put the masks in BX 
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mov cx, [bp+SourceEndx] ;calculate # of addresses across 
Mov ax, [bp+SourceStartX] ; rect 
cmp Cx, ax 
jle CopyDone ;skip if 0 or negative width 
dec cox 
and ax,not 011b 
sub CX, aX 
shr cx,1 
shr cx, 1 ;# of addresses across rectangle to copy - 1 
jnz MasksSet ;there's more than one address to draw 
and bh, bl ;there's only one address, so combine the left 
; and right edge clip masks 
MasksSet : 
mov ax, [bp+SourceEndyY] 
sub ax, [bp+SourceStartY] ;AX = height of rectangle 
jle ’ CopyDone :skip if 0 or negative height 
mov {bp+Height] , ax 
Mov ax, [bp+DestBitmapWidth] 
shr ax,1 ;convert to width in addresses 
shr ax,1 
sub ax,cx ;distance from end of one dest scan line to 
dec ax ; start of next 
mov [bp+DestNextScanOffset],ax 
mov ax, [bp+SourceBitmapWidth] 
shr ax, 1 ;convert to width in addresses 


shr ax,1 * 


sub ax,cx ;distance from end of one source scan line to 
~ dec. ax ; start of next 
mov [bp+SourceNext ScanOffset],ax 
Mov [bp+RectAddrwWidth],cx ;remember width in addresses - 1 
Mov dx, SC_INDEX+1 ;point to Sequence Controller Data reg 
; (SC Index still points to Map Mask) 
mov ax,es ;DS=ES=screen segment for MOVS 
Mov ds, ax 
CopyRowsLoop: 
mov cx, [bp+RectAddrWidth] ;width across - 1 
Mov al,bh j;put left-edge clip mask in AL 
out dx,al ;set the left-edge plane (clip) mask 
movsb ;copy the left edge (pixels go through 
; latches) 
dec CX ;count off left edge address 
js CopyLoopBottom ;that's the only address 
jz DoRightEdge ;there are only two addresses 
Mov al,00fh ;middle addresses are drawn 4 pixels at a pop 
out dx,al set the middle pixel mask to no clip: 
rep movsb ;draw the middle addresses four pixels apiece 
; (pixels copied through latches) 
DoRightEdge: 
Mov al,bl ;put right-edge clip mask in AL 
out dx,al ;set the right-edge plane (clip) mask 
movsb ;draw the right edge (pixels copied through 
; latches) 
CopyLoopBot tom: 
add si, [bp+SourceNextScanOffset] ;point to the start of 
add di, {bp+DestNextScanOffset] ; next source & dest lines 
dec word ptr [bp+Height] ;count down scan lines 
jnz CopyRowsLoop 
CopyDone: 


mov dx,GC_INDEX+1 ;restore the bit mask to its default, 
mov al, 0ffh ; which selects all bits from the CPU 


out dx,al ; and none from the latches (the GC 
; Index still points to Bit Mask) 
pop ds 
pop di restore caller's register variables 
pop si 
mov sp,bp ;discard storage for local variables 
pop bp ;restore caller's stack frame 
ret 
_CopyScreenToScreenxX endp 
end 


End Listing Three 
Listing Four 


; Mode X (320x240, 256 colors) system memory to display memory copy 
; routine. Uses approach of changing the plane for each pixel copied; 
; this is slower than copying all pixels in one plane, then all pixels 
; in the next plane, and so on, but it is simpler; besides, images for 
; which performance is critical should be stored in off-screen memory 
; and copied to the screen via the latches. Copies up to but not 
; including the column at SourceEndX and the row at SourceEndY. No 
clipping is performed. C near-callable as: 
void CopySystemToScreenX(int SourceStartX, int SourceStarty, 
int SourceEndX, int SourceEndy, int DestStartx, 
int DestStartY, char* SourcePtr, unsigned int Dest PageBase, 
int SourceBitmapWidth, int DestBitmapWidth) ; 
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SC_INDEX equ 03c4h ;Sequence Controller Index register port 
MAP MASK equ 02h ;index in SC of Map Mask register 
SCREEN SEG equ 0a000h ;segment of display memory in mode X 


parms struc 
aw 


2 dup (?) ;pushed BP and return address 
SourceStartX dw ? 

? 

? 


;X coordinate of upper left corner of source 
;Y coordinate of upper left corner of source 
7X coordinate of lower right corner of source 
; (the row at EndX is not copied) 

:Y coordinate of lower right corner of source 
; (the column at EndY is not copied) 

;X coordinate of upper left corner of dest 

;Y coordinate of upper left corner of dest 
;pointer in DS to start of bitmap in which 

; source resides 

:base offset in display memory of: page in 

; which dest resides 

SourceBitmapWidth dw ? ;# of pixels across source bitmap 
DestBitmapWidth dw? ;# of pixels across dest bitmap 

; (must be a multiple of 4) 


SourceStartY dw 
SourceFndX dw 


SourceEndY dw ? 
DestStartX dw ? 
DestStartY dw ? 
SourcePtr dw ? 


DestPageBase dw ? 
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Developers: Give your mainframe 
applications the PC advantage! 


parms ends 


RectWidth equ) -2 ;local storage for width of rectangle 
LeftMask equ -4 ;local storage for left rect edge plane mask 
STACK FRAME SIZE equ 4 


.model small 
. code 


For Users, it's a new look for the mainframe! 
For Developers, it’s results in the 





public _CopySystemToScreenXx * : 
_CopySystemToScreenX proc near blink of an eye. 
push bp ;preserve caller's stack frame 
mov bp,sp ;point to local stack frame z =z 
Bo) iNorad tava Stig vatlonite rete tod local vers T ransportal Pro Develop easy to use PC based front ends for 
sin a ;presérve caller's register variables mainframe applications. Use development tools like dBase, 
pus i . 
FoxBase, Clipper, C, knowledgePro, and many others. 
cld 
ee ind or uae eae Transportal - A menu driven scripting tool for PC to host data 
i ee pepo re) taeniat : exchange. Automation of data entry and retrieval and cross 
mul [bp+SourceStartY] ;top source rect scan line “ 
add ax, [bp+SourceStartxX] platform data sharing. 
add ax, [bp+SourcePtr] ;offset of first source rect pixel 
mov si,ax 7 Ens . 3 ‘ ‘ ; 
Hyperhost - A rapid development, application integration, 
Mov ax, [bp+DestBitmapWidth] . . - 
Dee fi hae ccdounriek er eRe <u seb asoade prototyping tool. Uses an object oriented development , 
shr ax,1 1 1 1 1 
mov [bp+DestBitmapWidth] ,ax ;remember address width environment with host integration. 
mul [bp+DestStartY] ;top dest rect scan line ji 
mov di, [bp+Dest Start X] XtraPC - End User Host-to-PC data extraction tool for ad hoc 
mov onal ‘ : 
he Mic) gX/4 offset “of first desk rebe pieel in downloads to applications such as dBase, word processing, 
shr di,1 ; scan line ; 
add di,ax j;offset of first dest rect pixel in page spreadsheets, and graphics formats. 
add di, [bp+Dest PageBase] ;offset of first dest rect pixel ee : 
;_in display memory No additional host software or host code changes are required. 
and cl,011b ;CL = first dest pixel's plane : 
Mov al,1lh j;upper nibble comes into play when plane wraps All products work with 3270 and 5250 emulators. 
; from 3 back to 0 
shl aly Ck ;set the bit for the first dest pixel's plane 
mov [bp+LeftMask],al ; in each nibble to 1 Call 1-800-548-5660 for your FREE DEMO DISK. 
j . 5 
mov cx, [bp+SourceEndx] ;calculate # of pixels across We I] give you more than Just a pretty scro 
sub cx, [bp+SourceStartX] ; rect 
jle CopyDone ;skip if 0 or negative width Cone Software 
MOV [bp+RectWidth] , cx 
MOV bx, [bp+SourceEndY ] 309 Chelsea Parkway 
sub bx, [bp+SourceStartY] ;BX = height of rectangle Chelsea Business Park 
jle CopyDone ;skip if 0 or negative height 
Mov dx, SC_INDEX ;point to SC Index register Boothwyn, PA 19061 
Ga ee a atc Phone: 215-497-0300 Fax: 215-497-8940 
out dx,al ;point SC Index reg to the Map Mask E i 
inc dx ;point DX to SC Data reg 
CopyRowsLoop: 
mov ax, [bp+LeftMask] CIRCLE NO. 351 ON READER SERVICE CARD 
mov cx, [bp+RectWidth] 
push si ;remember the start offset in the source 
push di ;remember the start offset in the dest 
fears cae arena ta . Reel, ae TURN YOUR PC INTO A SOPHISTICATED, 
out a ;set the plane for this pixe 
movsb ;copy the pixel to the screen EASY TO USE, SERIAL COMMUNICATIONS 
rol Wa ;set mask for next pixel's plane 
cmc ;advance destination address only when PROTOCOL ANALYZER 
sbb di,0 ; wrapping from plane 3 to plane 0 
; (else undo INC DI done by MOVSB) 
loop CopyScanLineLoop 
pop di ;retrieve the dest start offset 
add di, [bp+DestBitmapWidth] ;point to the start of the 
; next scan line of the dest 
pop si ;retrieve the source start offset 
add si, [bp+SourceBitmapWidth] ;point to the start of the @ CAPTURE & ® DATA TO & 
; next scan line of the source 
dec bx ;count down scan lines TRANSMIT ee x ™ FROM DISK 
jnz CopyRowsLoop DATA j ® uSECOND 
CopyDone: é % a 
pop di ;restore caller's register variables EGA/VGA FONT TIMING 
pop si REPLACEMENT : 
mOV sp,bp ;discard storage for local variables @ USES COM182 Version 1.01 e HEX/ASCII 
pop bp ;restore caller's stack frame EBCDIC 
Pet RTX485OR PROGRAMMABLE 
CopySystemToS X end ” 
eee ee RTCARD USING BUILT IN “C fies 


COMPILER AND EDITOR 


~” TRTCARD 


INTELLIGENT SERIAL 
COMMUNICATIONS ¢39500 © 


° SYNC / ASYNC  80C31 uP 
° 32K RAM ° 85C30 MPCC 


USE OUR DRIVER SOFTWARE .. . 
OR DOWNLOAD YOUR OWN CODE 


RTX485_ 


RS-232 TO 


SA CONTROL, INC. 
$149° & 1751 Southwest 44th Ave. 
w/COMLAB Gainesville, FL 32608 


$95 (800) 232-0485 (994) 373-2626 


CIRCLE NO: 520 ON READER SERVICE CARD 
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Visual Basic, a graphical application de- 
velopment system for Microsoft Win- 
dows, is now available from Microsoft. 
The new programming system provides 
visual user-interface design capabilities 
(for creating command buttons, text 
fields, list boxes, pictures, drop-down 
menus, and file system controls) with 
general-purpose programming tools, al- 
lowing you to create compiled windows 
.exe files that can be freely distributed 
without runtime fees or royalties. 

Visual Basic can be used to develop 
any Windows-based application and is 
also useful for integrating multiple Win- 
dows-based applications and for au- 
tomating software testing through Dy- 
namic Data Exchange (DDE). 

Based on Microsoft QuickBasic, Vi- 
sual Basic has been modified for the 
graphical environment and the event- 
driven programming language. It uses 
a threaded p-code incremental compil- 
er and source-level debugging tools, in- 
cluding an interactive immediate win- 
dow, in an integrated system. 

In addition to support for DLLs and 
the DDE, the control set itself can be 
extended by developers using C and 
the Windows SDK and the Visual Basic 
Control Development Kit (available 
separately) to provide the ability to in- 
tegrate new user-interface components 
into the graphical design and code de- 
velopment environment. 

From what we've seen and used, Vi- 
sual Basic is a powerful, but relatively 
easy-to-grasp system for developing 
Windows apps. Microsoft’s most diffi- 
cult sales pitch might be convincing 
novice Windows programmers that’ Vi- 
sual Basic is an easy entry into Windows 
development, while convincing experi- 
enced Windows developers that it is 
powerful enough to suit their needs. Vi- 
sual Basic fills both bills: It’s a milestone 
development environment that all Win- 
dows programmers should examine. 

Runs in Windows 3.0’s standard or 
enhanced modes; requires a 80286 pro- 
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cessor or higher; hard disk; mouse; 
CGA, EGA, VGA, 8514, Hercules or 
compatible display; MS-DOS 3.1 or lat- 
er; and one or more megabytes of mem- 
ory. Online help, an icon library, and 
an icon editor are included. The price 
is $199. Reader service no. 20. 
Microsoft Corporation 

One Microsoft Way 

Redmond, WA 98052-6399 
206-882-8080 


The Network C Library for Netware is 
new from Automation Software Con- 
sultants. The library includes 300 func- 
tions to access NetWare system services 
and statistics such as file and directory 
management, locking and synchroniza- 
tion, bindery management, accounting, 
messaging, printing, connection and 
workstation services, and queue man- 
agement and transaction tracking. Also 
featured are diagnostic and performance 
statistical reporting for the file server 
and individual workstations. Network C 
Library’s documentation gives you an 
overview of each set of services with 
implementation suggestions and a de- 
scription of each function. There are 100 
working sample programs that provide 
source code for most of the Netware 
command line utilities and for reports 
generated from the “fconsole” and 
“pconsole” programs. Other utilities are 
a sample client/server application and 
bindery maintenance utilities. 

Supports the Microsoft C and Turbo 
C compilers and costs $225, $450 with 
source code. Reader service no. 21. 
Automation Software Consultants Inc. 
124 Venice Ave. 
Cincinnati, OH 45140 
513-677-0842 


Ready Systems has released VRTX- 
velocity for DOS, an integrated, PC-host- 
ed cross-development and runtime envi- 
ronment that allows embedded systems 
designers to develop applications for 
Motorola 680x0 microprocessors. The 
package includes a complete set of Mi- 
crotec 4.1E ANSI C tools including an 
ANSI cross-compiler, C cross-reference 
utilities, and Motorola compatible as- 
semblers, linkers, and librarians. 

Cross-development tools are includ- 
ed to allow DOS host computers to de- 
velop VRTX32 applications which are 
downloaded to the target 680x0 pro- 
cessor. The RTsource debugger allows 
you to remotely debug C and assembly 
code running on the 68K target pro- 
cessor. Communication between the 
host and target systems is established 
through a serial link. 

VRTXvelocity includes RTscope, 
which resides on the target and serves 
as both a board-level monitor and a sys- 


tem-level debugger. It handles all the 
operations specific to the processor 
board, such as memory and register 
functions, instruction breakpoints, and 
communications with the host. It also 
allows you to examine VRTX32 system 
objects, such as tasks, queues, sema- 
phores, and event flags and issue VRTX32 
system calls. 

The VRTX Environment System also 
allows you to build BSPs for custom 
CPU boards, in addition to supporting 
CPU and controller boards manufactured 
by Force, Radstone, Motorola (133, 133a, 
and 147), Heurikon, Pep, and Tadpole. 

VRTXvelocity costs $12,500. Reader 
service no. 30. 


_ Ready Systems 


470 Potrero Ave. 
Sunnyvale, CA 94086 
408-736-2600 


C// for Turbo C, a C extension program, 
has been released by Subtlesoft. The 
program is comprised of hundreds of 
runtime-created, separable processes 
which, through dynamic priorities and 
scheduling, are able to share common 
resources, self-parallel functions, queues, 
lists, events, and timeouts. In addition to 
the C communications and classical syn- 
chronization mechanisms, C// makes 
available a new class of semiautomatic 
variables, runtime control variables, dou- 
ble access to process arguments, stack 
monitoring, private stacks, and offsets. 
External events are handled through the 
C// driver, user-programmed ISRs, and 
urgent process executions. 

C// costs $333; demo kits sell for $33. 
Reader service no. 22. 
Subtlesoft International 
4344 Bristol Street 
Pittsburgh, PA 15207 
412+521-1158 


W5086 is the new single-chip, user-in- 
terface controller from Weitek. Two key 
functions of Microsoft Windows’ Graph- 
ical Device Interface (GDI are incor- 
porated in hardware, thus improving 
performance of the graphical. environ- 
ment and its applications. These func- 
tions are the Bit Block Transfer (BitBLT), 
which copies a bitmapped image of a 
rectangular array of bits that correspond 
to the pixels of a graphic image from a 
source device to a destination device; 
and the LineDrawing function, which 
draws horizontal and vertical lines on 
screen one at a time. With the W5086, 
the BitBLT is 26 times better than that 
performed by the system CPU, while 
the LineDrawing function is five times 

better. 
Compatible also with IBM VGA, 
W5086 is suitable for 16- or 32-bit sys- 
(continued on page 190) 
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How to place your ad in the Programmer’s Marketplace: 
Carefully type your message or send camera-ready art. Each ad is 10 x 13 picas (15/8 x 23/16 inches). All ads must be prepaid. 
We accept checks, money orders, Visa and Mastercard. Send your ad to: 
Programmer’s Marketplace, Dr. Dobb's Journal, 501 Galveston Drive, Redwood City, CA 94063. 
For more information, contact: Anna Pomales at (415) 366-3600. 





PROSYS - the Project Development System 


Create professional quality text mode "C" applications with the 

Prosys package's 4 tools. 

« PROSYS Creates a data dictionary of Variables, Screens, and 
Menus. Design screens and windows with field-oriented data 
i/o. Automatic data validation by internal or user-supplied 
functions. Rapid project prototyping with flow control. 

* HLPSYS Easily creates generic or context-sensitive help 
screens. Formats help text. Nested HELP subjects supported. 

* RPTSYS Easily creates reports and automatically manages 
headings and page breaks. 

* PKGMGR Installation package to facilitate distribution of your 
programs. 

Price $99.95. HLPSYS, RPTSYS, or PKGMGR 
separately $49.95 each. 
Microsoft (R) "C" required. 
Specify disk format. $5.00 S&H. PA add 6%. No royalties. 
0 Day money back if not satisfied. 
Check, MO, Corporate PO to: 
Killdeer Software 
4676 Broadway, Suite 192 
Allentown, PA 18104 (215) 434-4036 
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Transputer Education Kit 


For the student, Professional, or hobbyist 


Only $396 
Includes ready-to-use PC add-in board with 20-MHz 32- 
bit T4000 transputer, 1 MB of RAM, PC Interface (PC, 
XT, AT, or'386 compatible), and an 8-bit parallel I/O port 
(for optional hardware experiments). Also includes: 
Occam2 and C compilers (and assembler); demo, 
example, and diagnostic programs; and 1500 pages of 
documentation (including schematics). Can be inter- 
connected with other Kit boards or with less expensive 
Add-On-Processor boards. 
Computer System Architects 
950 N. University Ave., Provo, UT 84604 

(800) 753-4CSA (801) 374-2300 Fax (801) 374-2306 
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ARE YOU 
TESTING YOUR 
SOFTWARE ENOUGH? 





Gate $395 
Professional-Pak (On Stage & Gate) $895 
30-day Money Back Guara 


On Stage $595 
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COMPILE N TIMES FASTER ! 


N = Number of PCs on your network 
SIMULTI utilizes idle PCs connected to a network in 
order to parallel-process and linearly speed up your 
compile jobs. Runs under DOS and Windows. 
Compatible with any compiler, any network OS. No 
TSRs, no device drivers. 


$195 per network (uni 10/1/1991) 
days money back guarantee. 


PARALLEX 


$.0O FT WA ae 


12021 Wilshire Boulevard, Ste. 892 
Los Angeles, CA 90025 (213) 826-6877 
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Software Marketing 


The "Software Success Reference Book (1989)" is a 
MUST READ if you want to market your software 
products successfully. Written by David H. Bowen, 
publisher of Software Success™, the monthly 
newsletter on successfully running a software busi- 
ness. The Reference Book is a 262 page guide, 
organized by topic. Covers Lead Generation, Pro- 
motion, Pricing, Distribution, Support, etc. Only 
$50. Check or Credit Card (Visa/MC/AEX). 
100% Money Back Guarantee 


Software Success 
PO Box 9006, San Jose, CA 95157 
(408) 446-2504 
FAX (408) 255-1098 











CIRCLE NO. 904 ON READER SERVICE CARD 


ource Code, 
Documentation, Executable Files, 


Reports, Data, Graphics... 
Whenever you need to know what changed, what was 
updated, or maybe, what didn't change, DiffJt™ is the tool 
for you. A Mouse support. A Fast resync algorithms. A 
Multiple wildcard filename parsing. A Mixed file difference 
output. A Condensed file difference output. A Unlimited file 
sizes. A Blank line ignore. A Case ignore. A WhiteSpace 
ignore. A Line, Word and Hex compare. A Fast terse 
modes. A Scrollable split screen display. A Command line 
interface. A Batch file drive-able. A Pop-up menu interface. 


Requires IBMPC or 100% compatible, 256KB memory, DOS 2.0or higher, floppy or hard disk. 
Not copy protected. $129.95. Call for information and orders: (215) 666-6104 


DOUBLE Ro SOFTWARE, INC. 
RD 1 Fifth Ave., Valley Forge Manor, Phoenixville, PA 19460 






















CIRCLE NO. 906 ON READER SERVICE CARD 


FIGHT PIRACY & PROTECT 
YOUR PROGRAM $$$’s! 


Since 1986, companies worldwide have been 
choosing Az-Tech security products. If you demand 
the strongest protection available, why not choose 
one of these "proven leaders": 

*EVERLOCK Copy Protection 

*EVERTRAK Software Sec urity 

*EVERKEY Il "The Lock” 

Az-Tech Software, Inc. 


201 East Franklin, Suite 11 
Richmond, MO 64085 


(800) 227-0644 (816) 776-2700 
Fax (816) 776-8398 
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Create Gorgeous . 
Windows/Dos apps 


No coding needed. Do menus,dialogs,child 
windows,radio/check/pushbuttons,help,icons, 
bitmaps, spreadsheet-like tables,scroll bars,fonts, 
directories,text editor,color and data validation. 
Animates and Demos complete applications. 
links actions,menus,windows,buttons & fields. 
Upgrades to Instant Windows C Generator 


CALL (800) 334-9552 NOW! Windows & DOS $99 
WinSoft1016 E.E 
piers osama 





the 1st truly low cost LAN 
Connect 2 or 3 PCs, XTs, ATs, PS/2s, 386s 
Uses serial ports and 5 wire null modem cable 
Runs at 115K baud, up to 90 feet 
Runs in background, totally transparent 


Share any device, any file, any time 


Needs only 14K of ram 
Version 2.3i * OVER 15,000 SOLD 


Skeptical? We make believers! 


s Information Modes 
| P.O. Drawer F, Denton, TX 76202 
] 0 817-387-3339 Technical, 7 days 
1-800-628-7992 Orders 
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How To Develop \ Successful Marketing Plan 
Guidebook shows how to develop channel strategies that get 
results. Full of ideas for establishing multiple channels and 
increasing sales. Topics include segmentation, competitive 
advantage, positioning, channel linking, “piggy backing” 
opportunities and strategies for OEM channels, key legal and 
contract issues. Models and diagrams show step-by-step how 
to establish a true, market-driven channel program. Use 
worksheets as templates to avoid writing your plan from 
scratch. Authored by Norcross, Georgia attorney Frederick 
L. “Chip” Cooper III..$49.95 plus $2 shipping. GA residents 
add $2.60 sales tax. 100% money-back guarantee. 

SoftChannel Publishing Company ) 
Box 2045-D, Norcross, GA 30091 (404) 729-1336; FAX (404) 729-1338 
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1*FREE Tutorial 


i On Decision Tables! 


Design Quality Software And Procedural Logic With 
i Decision Tables & Trees 


Powerful Decision Table Spread Sheet Program 
: Included WithTutorial!! 


(For IBM PC/XT/ATs & compatibles) 


* 
i Foreign addresses add $5 for P & H 
Binary Triangles, Dept DJ 
4 4940 Alzeda Dr. 
La Mesa, CA 91941 
L Office (619) 579-3042 FAX (619) 579-0216 
ee Se Ta FE A EE SS BRE See 
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MARKETPLACE 





How to place your ad in the Programmer’s Marketplace: 
Carefully type your message or send camera-ready art. Each ad is 10 x 13 picas (15/8 x 23/16 inches). All ads must be prepaid. 
We accept checks, money orders, Visa and Mastercard. Send your ad to: 
Programmer’s Marketplace, Dr. Dobb's Journal, 501 Galveston Drive, Redwood City, CA 94063. 
For more information, contact: Anna Pomales at (415) 366-3600. 


Response Files for MSC 5.1 & 6.0 


Finally! Add response file capability to 
Microsoft C v5.1 and v6.0 with Responser. 
Invoke CL with command lines longer than the 
DOS limit of 126 characters. Simply place alll 
arguments in a file, then execute "CL @FILE". 
Requires DOS 3.0 or higher. Only $25 + $5 
S&H. VISA/MC. 













PereLine Data Systems, Inc. 
750 Camden Ave., Suite B 
Campbell, CA 95008-4102 
Info (408) 364-2770 Orders (800) 359-6612 
Fax (408) 364-2788 BBS (408) 364-2789 
CompuServe: 71121,705 
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BGI PRINTER DRIVERS 


The BGI Printer Driver Toolkit provides BGI printer 
drivers for Epson 9 & 24 pin dot matrix, HP LaserJet Il, 
and HP PaintJet printers. Use the BGI graphics 
interface to effortlessly generate high resolution hard- 
copy with Turbo C , C++, and Turbo Pascal. Full 
driver source code included. $89.95. 


PC TIMER TOOLS 


60 functions implement microsecond resolution timing, 
precision delays, interrupt profiling, and timer tick 
management. Ideal for profiling and data acquisition/ 
process control. Supports TC, TC ++, MSC, TP. Full 
library source code included. $49.95 


Prices postpaid USA, elsewhere add $4. VISA/MC 


RYLE PO Box 22, Mt. Pleasant MI 48804 
DESIGN (517) 773-0587 ClIS:73047,1765 
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Documentation Etc. 
Hate writing user manuals? 


Call Us! Our comprehensive service will 
test your product, write clear, concise, 
easy-to-read text, and use the latest in 
graphics and desktop publishing to pro- 
duce polished, professional documenta- 
tion. 





(714) 494-0952 
FAX (714) 497-8232 


CIRCLE NO. 917 ON READER SERVICE CARD 





If Your App Never Swaps, 
Stop Reading This Ad 


However, if you are beset by other apps stealing your memory, or by real mode 
users, then your app occasionally crawls because of disk thrashing. There simply 
isn't enough memory to run comfortably, even with virtual memory and object 
caching 


If this sounds familiar then you need SegMentor™. It optimizes your segmentation 
map so your app screams even when your user's memory is scarce 


SegMentor™ traces the entry point, exit point, and timing data for absolutely 
every one of your functions in a typical runtime session(s):* Then, it employes 
powerful algorithms, like those for auto-routing printed circuit boards, to explore 
the solution space for an optimal segmentation map. You get amore compact app 
with the fewest inter-segment (disk thrashing) calls. We even put the pragma 
directives for this new map in an include file for easy linking back into your code. 


MicroQuill Performance Tuning Tools 


4900 25th Avenue NE #206 » Seattle. WA 98105 
800-441-7822 * 206/525-8218 = FAX 206/525-8309 
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C++ MODELING & SIMULATION 
CLASS LIBRARY: MEIJIN++ 


Enter the world of Modeling and Simulation 
the fast and easy way... with class! 


> Reusable Data Structures \\\ 

> Statistical & Math Classes \ \ 
> Exceptions \ 

> Discrete Event Simulation 

> C++ 2.0 Documented Source Call: 714-755-0995 


> No Royalties - User's Manual Network Integrated Services, Inc. 


‘ 09 221 West Dyer Road 
> Introductory Price: $225.00 Santa Ana, CA 92707.3426 
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UPPER DECK EDITOR 
FOR WINDOWS 3.0 


Regular expressions, search across multiple 
files, full multi-level UNDO, keyboard 
macros, compile within editor, custom- 
Introductory price $75 plus $5 S/H 


izable. 
(outside USA $15). CA residents please add 
sales tax. 30-day money-back guarantee. 
Upper Deck Systems 
P.O. Box 2751, Escondido, CA 92033 
(619) 741-1075 





CIRCLE NO. 915 ON READER SERVICE CARD 


DEBUG WITHOUT SOURCE 


Quaid Analyzer debugs by showing interrupts 
as they occur. You can even watch DOS boot 
load without hardware changes. The manual 
tells how to deal with programs that don't want 
to be traced - we use it on copy protection. 
You scroll through memory like text in an 
editor, and never type a command. US $200 








Quaid Software Ltd Dept DD 

45 Charles St East Third Floor 
Toronto Ontario Canada M4Y 1S2 
(416) 961-8243 fax: (416) 961-6448 
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Diskette Duplicator 


240 copies per hour using any 
IBM PC/XT/AT or compatible 
Desktop Autoloaders also 
$ 1 99 5 available for unattended 
use. For information, or to 
order call 415-651-5580, 
or FAX 415-651-7814. 


Datapath 
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AWKCC & KORN SHELL 
...|he BEST UNIX tools. 


Get the execution speed and security needed 
with your awk scripts. Code faster in awk for 
simplicity then use ASPEN’s AWKCC to compile 
and run for speed and security. Run under the 
KORN SHELL, the best shell for UNIX Systems. 


ASPEN Technologies, Inc. 
PO Box 5727, Parsippany, NJ 07054 


Telephone: 201-316-0866 
FAX: 201-316-5781 


VISA / MC - Money Back Guarantee. 
UNIX is a registered trademark of AT&T. - 
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The SPINDRIFT Library 


At Last!! Now there's a way for the FORTRAN programmers to do the things 
they have always wanted to do: Execute other programs via CALL EXEC; 
direct control of the cursor with edit keys; WINDOWS on the screen for POP 
UP HELPs; (*) and (?) wildcard file searches; save/restore screen images; 
COLOR screens. 


These are just a few of the features of the SPINDRIFT Library. Over 150 
subroutines and functions in all. the SPINDRIFT Library includes DOS 
Interface (COPY, ERASE, MKDIR, FINDFILE, SYSTEM, etc), Variable 
Length Strings, Security Routines, Date/Time Routines. 10 SORT Routines, 
and much more! 


Price $149 plus shipping/handling 
Write for a DEMO DISK $5.00 credited toward purchase. 
Specify your FORTRAN Compiler 


Spindrift Laboratories, Ltd. 
116 South Harvard Avenue 
Arlington Heights, Illinois 60005 
(708) 255-6909 
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save Time and Money !! 


Before 


%. SoftFIELDS" :« 


Replacement Dialog Controls including: date, — 
time, money, picture, virtual table w/ edit bar, 

scroll bar, graphic shapes, bitmaps, spin buttons. 
The quickest way to add professional validated 
dialog boxes to your applications. No Royalties. 


SoftWorks International “‘*e 
P. O. Box 8628 Order: (404) 876-6115 
Atlanta, Ga 30306 FAX: (404) 876-0765 
MSC, TC++, Windows Dialog Editor VISA/MC 



















CIRCLE NO. 919 ON READER SERVICE CARD 


SoftC Your dBASE Files 


The SoftC Database Library provides fast and 
reliable access to dBASE, Clipper, and FoxPro 
data, index and memo files. Support for LANs 
included. Object code libraries for either Zortech 
C++, Turbo C, Turbo C++, Quick C, or 
Microsoft C only $30 + $5 s&h. The ANSI C 
compliant source code (portable to Windows, 
OS/2, and UNIX) is also available. Absolutely 
no royalties. VISA and MasterCard accepted. 


SoftC, Ltd. (612) 434-6968 


16820 Third Street NE, Ham Lake, MN 55304-4703 U.S.A. 
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_miniEd - Add Text Editing to Your 'C’ Applications 
(BASIC and PASCAL too!) 


Ultra-small (less than 5k), full featured window text editor designed 
to work with 'C', PASCAL or BASIC programs. _miniEd can be 
linked with your programs, or can be configured as a TSR and 
accessed via a software interrupt. Ideal for obtaining text input 
when RAM considerations are important or use VIEW mode as the 
display driver for your HELP system. All text and formatting 
information is held in a structure that is shared between your 
program and _miniEd. 
+Written in 8086 assembler +Non-destructiveVIEW mode 
+Uses any program defined +Re-entrant / Edit 
window size multiple windows 
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& WCSC Professional Software Development Tools && 
COMM-DRV ia’ 3 COMN-LOG 


m Professional Serial Communication library @ Background file transfer TSR(De-installable) 
@ Device Driver/Int21,Int14,EBIOS, FOSSIL m Xmodem(1k)/Ymodem(Batch/G)source % 
@ De-installable TSRw/INT14,EBIOS,FOSSIL |g Backgroundloggingto disk TSR(De-installable) x 
m@ 25+ Ports, IRQSharing, REMAP COM Ports | User Application & Command Line Interface 
m Hdw./Softw. Handshaking/Upto 115kbaud @ Filetransfer/logging on soperats aa to 
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RA ‘ ( : ; +No Royalties 
we m 8250/16450/16550(Automatic Detection) seperate files concurrently. Easy to use. _mini€d Object, Commented Source and Documentation 
| m Desqview,Windows3.0,pcAnywhere support |™ Requires COMM-DRV eee 


Strategic Software Designs, Inc. 
6 S 235 Steeple Run Drive - Suite 12B 
Naperville, IL 60540 
Phone: 708/778-6060 FAX: 708/778-6063 


“A \_Device/TSR/Libraries/Source $89.95 /\_TSR & File Transfer Sources $89.95 _/RY 
AZ SAVE!!! Buy 2 products for $159.95, 3 for $225.95, 4 for $275.95 
~ 


MTASK SCRN-INPUT —s 


m Preemptive Multitasking TSR (De-installable) | ™ Professionalscreen & keyboard library 
m Allowcreatjon of severalthreads ofexecution | ™ Createscreens on monitor or over serial port 
inyour application. Very easy to use. m Save/Restore/Scroll screen areas 


m Each thread may make DOS calls. m Complete cursor & keyboard control 
m Each thread may sleep or be awakened = Datadriven input field screens 


m Each thread may have different time slice ™ Absolutely no royalties 
® Each thread may send intertask messages m Extreme ease of use/Many examples 


TSR and Examples $89.95 J Library and Sources $89.95 
Lae 4 Port Serial Card w/16450 $110 w/16550 $170 | 


1-800-966-4832 TEL (713)-498-4832 AR 


Willies’ Computer Software Co. FAX (713)-568-3334 
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C/C++ Multitasking Executive 


OBX (Object-Based eXecutive) is the most comprehensive and cost- 
effective multitasking library available that can coexist with DOS. Writing 
a task (or an object) is simple as writing a C function! Simplifies rapid 
prototyping of multitasking applications. Provides complete services: 
time/memory/task management, intertask communication, and interrupt- 
handling. You getthe multitasking source! Discover all the inner workings 
of OBX. Learn more about C and C++, class hierarchical design, reusable 
components, executive implementation, and multitasking programming 
concepts by single stepping through OBX source code. OBX C/C++ pays 
for itself on even the smallest multitasking application. Only $199.00 with 
no royalties. Comes complete with source code and reference manual. 
Supports Borland Turbo C/C++. All orders must be prepaid in US funds. 
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POONA ARK, 
ARLES. POX Phone: (514) 447-7221 Fax: (514) 447-7297 
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at the savings in development time you can get with DOCZT™ to 
automate subroutine and program documentation. Discover 
how to use DOCZ™ to build an object-oriented development 
environment to share and re-use your software modules. FREE 
MSDOS demo disk and samples. 60-day money-back guarantee. 
VISA/MC accepted. $195/Single-User. Start benefiting NOW! 
4: Do It Better With Toolz! 


Software Toolz, Inc. 
8030 Pooles Mill Drive 
Ball Ground, GA 30107-9610 
(404) 889-8264 
Voice-mail: (800) 869-3878 


¥ \Y 


The GraphLink™ Printer Graphics Library produces dazzling graphics on dot-matrix and 
laser printers at the highest-resolution possible for each printer. 


* Screen Capture module adds printed graphics to existing programs with just 3 
lines of code 


* Over 100 routines for patterns, fills, circles, polygons, viewports, & much more 
* Plots text at any angle; italics and bold 

* Scalable, filled-outline fonts produce solid text, plus traditional stroked fonts 

* Open printer driver system includes a full-screen editor 


* Device-independent code allows user to select resolution, page placement, and 
orientation 
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DEVELOPERS! : 


AEcEAOTIEP2! 
GOING INTERNATIONAL? Our STRING 
EXTERNALIZATION TOOLS 
+ Allow the same exe to “speak” German, French, Japanese, etc. 
* Support prompt & error message ediing/ransiaton 
) without recompiling. 
* Reduce static data space & maintain format cond characters. 


Externalizes textual prompts and message strings for easy trans- 
lation into foreign languages. Translated are stored in 
ASCIl text file, but behave as if compiled as part of source. Popular 
C compilers. DOS/UNIX. Royalty-free licenses. Full translation 
services available. Also have similar utilities for Basic, Cobol, 


Microsoft C, Quick C, Turbo C++/C, & Turbo Pascal is only I SITE CH Foreen, Cea Annee Se See eee ee 
$145.00. 60-day guarantee assures your satisfaction. op ie 8 
7936 Haymarket « Raleigh, NC 27615 * (919) 676-8474 SOFTWARE Velae eee PR ence 


\ 
Royalty-free version for personal or professional users of 
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How to place your ad in the Programmer’s Marketplace: 
Carefully type your message or send camera-ready art. Each ad is 10 x 13 picas (15/8 x 23/16 inches). All ads must be prepaid. 
We accept checks, money orders, Visa and Mastercard. Send your ad to: 
Programmer’s Marketplace, Dr. Dobb’s Journal, 501 Galveston Drive, Redwood City, CA 94063. 
For more information, contact: Anna Pomales at (415) 366-3600. 





EXCELLENT OPPORTUNITIES 
NATIONWIDE 


Software Engineers; Programmer, 
System or Database Developers 
and Analysts 
Fees are employer paid. Call or send 
your resume to: 


Gary Spann 
Ability Search Group 
202 N. Midvale Bivd, Madison WI 
53705 
(608) 231-2421 FAX (608) 231-4453 
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Tired of the limitations of standard DOS commands? Wish you 
had powerful commands with a consistent syntax? Get 






™ 
InCommand 
and beat the DOS runaround ! 
Unmatched File Selection 


Multiple * file and directory wildcards. Select files before, after, or 
on any date/time, bigger or smaller than any size, with or without 
any attributes. Exclude files matching a pattern. Process entire 
directory trees as easily as one file. 








Total File Management 
Runs from the DOS prompt. No menus to slow you down. : 
+ Directory: sort by name, extension, time or size; subdirectories 
* Copy: multi-floppy incremental backups; flatten directory trees. 
Up to 40% faster to floppies than XCOPY. 
+ Move/Rename: files, directories, or entire trees without copying 
* Execute: run your own programs and batch files as if they 
had all of these file selection capabilities 
+ Delete: files, directories, and entire directory trees 
+ Change attributes, set file times, find commands in your PATH 


+ Fast on-line help, at your fingertips f() | 


* Network compatible 
Inductive Logic 















Much more! Now Only $60 
Call now for demo disk. 


For undeleting files, use Norton. 













But for everyday, get InCommand. " ee Box aac 
n Diego, 
GA residents add 7 sales tx. (619) 578-5146 





Intelligent Software for Every User 
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EGAD Screen Print 


Take better advantage of your printer’s 
features - make graphic screen printouts 
in color or gray tones from VGA, EGA, 
CGA. Supports most popular dot matrix, 
laser, ink jet printers. Features include 
cropping, enlarge/reduce, more. $35 
postpaid. Call or write for free catalog. 


LS Software 
8139 East Mawson 
Mesa, AZ 85207 
(602) 380-9175 
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Victor Library for C programmers. Powerful image process- 
ing, bright/contrast, sharpen, outline, resize, overlay, ma- 
trix conv, etc. TIFF/PCX/GIF/bin, use exten'd, expan’d, conv 


mem, images from any source, any size, grays, color, EGA/ 
VGA up to 1024x768x256, LaserJet, ScanJet+, for MSC, 
QuickC, Turbo C. Source avail, no royal. Now shipping v 2. 


VICTOR LIBRARY $195 
CATENARY SYSTEMS 


470 BELLEVIEW STLOUIS MO 63119 


VISA/MC (314) 962-7833 CoD 
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Extremely fast Sort/Merge/Select 
utility. Run as an MS-DOS command 
or CALL as a subroutine. Supports 
most languages and filetypes includ- 
ing Btrieve and dBase. Unlimited file 
sizes, multiple keys and much more! 
MS-DOS $149. OS/2, UNIX $249. 


(702) 588-3737 


Opt-Tech Data Processing 
P.O. Box 678 - Zephyr Cove, NV 89448 
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BASIC to C 


BAS_C v4.5 accepts BASICA, Quick BASIC 
v4.5, CBASIC86, or other different BASICs by 
adding new statements, functions 
(Customizer), generates structured, indented, 
scoped C, MS/Turbo/Lattice/Aztec C. All 
memory model, compile option are supported. 
C source code (Runtime Library) is included. 
Run on MSDOS, XENIX, UNIX. 95% 
conversion ratio. Demo disk. From $375. 
GOTOLESS COVERSIONS 
P.O. Box 835910 

Richardson, TX 75083 

BBS: (214) 625-6905 FAX: (214) 370-2612 

















- 


MULTI-VOICE (R) TOOLS 


Multi-Voice Tools is a complete development 
Toolkit for Pascal or "C" toraccess all the features for 
most speech processing boards available today. It 
helps you write MULTI-LINE VOICE APPLICA- 
TION systems in minutes. A number of program- 
ming examples are provided. All programs and 
libraries are delivered with source code. 

Dialogic, Rhetorex, Pika, VBX: $599.00. Watson (Single 
Line): $99.00. ALSO AVAILABLE: FAX Programmer's 
Toolkit ($199.00). Based on CAS specification. 
Visa/MC accepted. 

ITI Logiciel 
4263 Christophe-Colomb 
Montreal, Quebec, Canada, H2J 3G2 
TEL (514) 597-1692 FAX (514) 526-2362 
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32-bit 386/486 Protected Mode 
C Extended Graphics Library for 
DPMI Intel 386/486 C Code Builder Kit, 
VCPI MicroWay NDP C-386, Watcom C 386, 
Zortech DOS 386 C+ + w/Phar Lap 386|ASM 
EGA, SVGA, 8514/A and Hercules Graphics 
Station Card through 1024x768x256 (8-bit), 
640x480x32k (16-bit) 512x480x 16.7m (32-bit) 
Mixed Raster/ Vector - Sizable, Rotatable Font 
Viewports, Global scaling, Clipping Control 
WYSIWYG HP-GL and PostScript Output 
$200 SOURCE CODE NO ROYALTIES 
Gary R. Olhoeft 
P.O. Box 10870 Edgemont 
Golden, CO 80401-0620 
(303) 279-6345, 877-3697 
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B.Sc. & M.S. in COMPUTER SCIENCE 


The American Institute for Computer Sciences offers 
an in depth correspondence program to earn your 
Bachelor of Science and Master of Science degrees 
in Computer Science at home. BSc. subjects covered 
are: MS/DOS, BASIC, PASCAL, C, Data File 
Processing, Data Structures & Operating systems. 
MS program includes subjects in Software 
Engineering and Artificial Intelligence. 


American Inst. for COMPUTER SCIENCES 


2101 Magnolia Avenue, Suite 200 
Birmingham, AL 35205 


(205) 323-6191 (800) 767-2427 
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SDLC 
HDLC 
AND 


* C source code 

¢ ROM-able 

¢ Full porting provided 
¢ No OS required 


GCOM, Inc. 

1776 E. Washington 
Urbana, IL 61801 
(217) 337-4471 





oim 


Specialists in Computer Communications 
FAX 217-337-4470 
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C and Assembly Language Programmers! 
Here’s the ULTIMATE in DOS heap 


* Over 500 functions » 100% C-callable assembly language 

routines « For Borland and Microsoft C and C++ compilers, 

S, M, C, L, and H memory models « Up to 1600-fold speed 

improvement over malloc( ) »« Up to 12-fold improvement 

in efficiency of memory usage » Avoid heap fragmentation . 
« Implement garbage collection, free( ) error checking, etc. 

e Use entire far heap as stack » Super-fast 1/0 of linked list 

data « etc. etc. 


$429 Full source code included. To order or for more 
information write or call: 


LIBRARY TECHNOLOGIES 
BOX 56031 1°800°767°4214 
DISON, WI! 53705-9331 
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Disk DUPLICATORS 


3.5 AND §.25 DISKS ON SAME UNIT 
PC BASED AND STAND ALONE SYSTEMS 
MANUAL LOAD AND PNEUMATIC SYSTEMS 


CONTACT US FOR DETAILED INFORMATION 
DISTRIBUTORS LOCATED IN 
UK; EUROPE; JAPAN; S. KOREA & AUSTRALIA 


W VICTORY ENTERPRISES 


1011 EAST 53-1/2 STREET 
(800) 421-0103 








AUSTIN, TEXAS USA 
(512) 450-0801 
FAX (512) 450-0869 
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Pop-up C & C++ 
analysis with cross referencing in 
your own editor! 


The original and the best! 


Western Wares 
(303) 327-4898 
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tasks. This 
| operating systems. 


their time-slice sizes. 


variables, mailboxes 


tasks on interrupts. 


Expan 


'|Interwork is available for the following systems: 
$229 
$279 


IBM PC, XT, AT 
IBM PC AT 
Intel 386 

Sun 3,4 


PC-DOS 2.0 or later 
XENIX 286 

UNIX V.3/386 

Sun OS » 


$369 
$369 
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Simplify Real-Time Programs with 7 


INTERWORK™ 


Concurrent Programming Toolkit 


Interwork is a “C” program library that lets you write your programs as a set of cooperating, concurrent 
reatly simplifies programming for real- : 
programs. Interwork gives you much more control and efficiency than do heavyweight, multi-tasking 


FEATURES 


Unlimited number of tasks with very fast context sen § ; 
Optional fully preemptive, time-sliced scheduling. Tasks have full control over preemption and 


Enhanced inter-task communication using shared memory. Includes semaphores, queues, event 
Improved interrupt and trap handling facilities. Write interrupt handlers as C proceures and block 


Debugging, tracing and exception handling facilities. ; 
user's guide with examples and complete reference manual with on-line documentation. 


“Interwork has been running 





Ae Block Island Technologies 


Innovative Computer Software 


aU le)i(omm Dlolaar-llammelevinysslas 


C source, GNU, X Windows, and more! 
Search our on-line catalog of Unix public. 
domain software using keywords to find what 
you want quickly. Place your order on-line, and 


it is shipped to you on either Unix or DOS 
media—no costly downloading time. Bulk rates: 
just $2/MB for tapes ($75 minimum order) or 
$7.50/MB for floppies ($25 minimum). 


(818) 784-2070 


300, 1200, 2400 baud 
8 bits; 1 stop bit; no parity 
No purchase necessary 
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Reach 16 Million New Buyers! 
When you put your new product in the Selective Soft- 
ware Catalog you can expect sales to go through the 
ceiling! Our targeted circulation reaches between 3-4 
million buyers quarterly. We reach buyers not lookers, 
and offer an unbeatable solution to your distribution 
needs including ad production, service, support, 
fulillment, and co-op payment plans. Call our Merchan- 
dising department today at 408-423-3556 to discuss 
placing your product in our next catalog. 


Selective Software 
3004 Mission Street 
Santa Cruz, CA 95060 
Phone: 408-423-3556 
FAX: 408-427-4238 
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MEMORY PROBLEMS SOLVED! 


[XMEM] A complete, real mode, virtual memory 
manager. Use XMem to allocate blocks (like 
malloc). When conventional memory is full XMem 
can swap blocks to expanded memory, extended 
memory, or even to disk - allowing full utilization of 
all memory. Includes Windows and Macintosh 


memory manager emulation. 100% assembler. Full 
source code included. $149 


EMPTY SHELL Leaves only 4K in memory when you 


shell; saves and restores text or graphics screens. $169 


Int'l (609) 586-2312 


Fax (609) 587-9412 1-800-755-7973 
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n vailabl 


ime applications, simulations, and other parallel 


flawlessly for over two years.” 
- Glen Catariou, RSK Consulting 


PC-DOS version is compatible with Microsoft, C, Lattice C, 
Borland Turbo C, C++ and Zortech C++ compilers (large 
and small models). Please specify hardware and operating 
system when ordering. Shipping free within continental 
U.S.; COD orders add $5; intemational orders, add $25; 
Canada, add $12. Send check or money order to: 








15455 NW Greenbrier Parkway, Suite 210, Beaverton, Oregon 97006 Tel: (503) 690-7181 FAX: (503) 645-7732 
Trademarks: interwork, Block Island Technologies; UNIX, Unix Systems Laboratories, Inc., XENIX, Microsoft, Inc.; Sun, Sun Microsystems, Inc. 
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INSTALLER™ 


...the World's Premier Installation System™ : : : . | 
for Windows - DOS-OS/2 FAPI 


Find out why! All versions share a common, 
readable, encryptable, flexible, fully 
procedural script language implementing 
installation requirements and include 
MediaBuilder for automatic master diskette 
building and file splitting. State-of-the-art 
compression and error handling. 











¢ No royalties or relicensing. 
¢ 90-day money back guarantee. 
¢ Demo on BBS 


DOS $149 (specify national language), DOS 
and OS/2 w/ C source $249, Windows $199, 
Windows w/ C source $299, DOS Multilin- 
i gual (speaks ten+ languages) $249. Ground 
$5, next day $15. 

MC - Visa - Amex - PO 


HPI, POB 16078, Huntsville, AL 35802] 
USA | 
(205) 880-8782 


CsL 


C Scientific Programming Library 


Over 600 mathematical routines for scientific : a : 
and engineering applications.. : 


Programs = Data + CSL 


1-800-933-7774 
408-867-1184 in California 


* 


Ficenware Technologies 
















C and UNIX Pocket References 


ANSI C Reference Card 
. UNIX Command Summaries 
C Library Reference for UNIX V.4 
Korn Shell Reference 
RS-232 Card 
C++ Reference 


SSC - UNIX Publishers since 1983 
PO Box 55549-D 
Seattle, WA 98155 
(206) 527-3385 FAX: (206) 527-2806 
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Downloadable emulator for all 2716 - 27020 
EPROMs 
As low as $125.00 per unit 


Eliminates EPROM programming during 
embedded system developmen 


RS-232 connection for downloads from any 
system at up to 57600 baud. 


Built-in battery for data retention and stand 
alone operation. | 


Applied Data Systems 
(800) 541-2003 (301) 576-0335 
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(continued from page 184) 

tems, offers up to 2048 x 1024 resolu- 
tion in monochrome; 1024 x 768 with 
16 colors; and 800 x 600 and 640 x 480 
with 256 colors. All high resolution 
modes support non-interlaced or inter- 
laced monitors. 

The W5086 costs $30 for 1000 units 
at 70 MHz in a 100-pin quad-flat-pack- 
age. The W5186 for 80 MHz in 144- and 
160-pin quad-flat-packages will be re- 
leased shortly. Reader service no. 29. 
Weitek Corporation 
1060 E. Arques 
Sunnyvale, CA 94086 
408-738-8400 


Screen Manager Professional (SMP) is 
the new interface design toolbox for C 
programmers from Magee Enterpris- 
es. Using SMP, you can develop win- 
dowing, menuing, context sensitive help 
functions, data entry and keyboard and 
mouse support. SMP’s unique features 
are: an unlimited number of windows, 
event-driven mouse support, context 
sensitive help, linkable libraries, and a 
tutorial with over 100 code examples. 

Additional features include a com- 
prehensive menu system and shadow- 
ing and overlapping of windows. All 
windowing libraries are written entire- 
ly in hand-optimized assembly language, 
providing speed and low RAM over- 
head. 

DDJ spoke with Russ Beardall, a sys- 
tems analyst at Duke University. Said 
Beardall, “I like the way the function 
calls are laid out. You can define all the 
attributes and windows at the beginning 
and simply turn them on instead of us- 
ing many calls. On the other hand, you 
do have the option of using calls to set 
specific window attributes.” 

SMP costs $349.95, $499.95 with 
source code. Reader service no. 24. 
Magee Enterprises Inc. 

2909 Langford Road, Suite A600 
Norcross, GA 30071-1506 
404-446-6611 


Tools.h++ 4.0, a foundation class library 
compatible with Microsoft Windows 3.0, 
is now available from Rogue Wave. The 
new version includes over 60 classes that 
are not derived from a single root class, 
making it easy to combine them with 
other-C++ classes from CNS, Glocken- 
spiel, Zinc, and others. Classes are pro- 
vided to handle strings, dates, times, files, 
Btree, Smalltalk-like collections classes, 
link lists, queues, stacks, and so on. 
There are several features new to the 
version: It can be run as a DLL, allow- 
ing smaller executables, code sharing, 
and easier maintenance; DDE and Clip- 
board stream buffer classes make for 
easy exchange of data with other ap- 
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plications while using stream I/O; a reg- 
ular expression class makes searches 
possible to find matches using a regu- 
lar expression pattern; a tokenizer class 
makes string parsing easy; expanded 
virtual I/O streams allow saving and 
restoring any object into memory, disk, 
or through the Windows DDE or Clip- 
board; and error checking allows for 
structured error handling. | 

All classes are optimized for speed and 
size and have an isomorphic persistent 
store facility that allows complex objects 
to be stored and restored on heteroge- 
neous networks or through the DDE. 

With source code, Tools.h++ for MS- 
DOS costs $199, $499 for Unix worksta- 
tion or DOS network. DOS object code 
only runs $99. Reader service no. 26. 
Rogue Wave 
P.O. Box 2328 
Corvallis, OR 97339 
503-745-5908 


MetaWare has released its Windows 
Application Development Kit (ADK) for 
32-bit Application Development. The 
new ADK enables you to develop, de- 


bug, and run true 32-bit Windows 3.0. 


applications using the MetaWare High 
C compilers. The ADK also supports 
MetWare’s full 32-bit Run-Time Library. 

Applications developed for 16-bit 
Windows or 32-bit Extended DOS can 
be ported with minimal changes, al- 
lowing utilization of 32-bit protected 
memory without using a DOS extender. 

DDJ spoke with Joe Chien, software 
engineering manager at Silicon Graph- 
ics, Mountain View, Calif. “Everything 
in Unix is running on 32-bit, so the ADK 
makes it much easier to port, and cal- 
culations are faster,” said Chien. Fur- 
thermore, “you can use flat memory, 
and MetaWare’s tech support is very 
good.” 

License fees run $795; the introduc- 
tory fee is $495. Technical support is 
free. Reader service no. 28. 

MetaWare Inc. 

2161 Delaware Ave. 

Santa Cruz, CA 95060-5706 
408-429-META 


Scientific Software Tools has released 
DriverLINX, a series of real-time data- 
acquisition drivers for third-party high- 
speed analog and digital I/O boards 
for Windows 3.0. DriverLINX consists 
of language- and hardware-indepen- 
dent Dynamic Link Libraries designed 
to support data-acquisition boards from 
Keithley Metrabyte, Advantech, Com- 


puter Boards, and Sotec under real, 


standard, and enhanced modes. The 
DLLs include services to display dialog 
boxes for configuration management 
and service request entry, context-sen- 


sitive online help, and extensive error- 


checking and reporting capabilities. 

The high-level interface to PC data- 
acquisition hardware reduces the effort 
involved in porting data collection, inistru- 
mentation, monitoring, and control appli- 
cations into the Windows environment. 

Applications communicate with Driver- 
LINX by passing a “service request” con- 
taining the specifications for a data-ac- 
quisition task. DriverLINX acknowledges 
the request and notifies the application 
as the task is completed. 

There are over 70 services for creat- 
ing foreground and background tasks to 
perform analog and digital input anid out- 
put, time and frequency measurement, 
event counting, pulse output, and peri- 
od measurements. The most common » 
data-acquisition protocols are imple- 
mented without sacrificing the hardware’s 
high-speed data-acquisition capabilities. 

DriverLINX includes multitasking and 
multiuser capabilities; it can manage up 
to six data-acquisition boards and ten — 
concurrent tasks. 

DriverLINX costs $400 and requires 
Windows 3.0, DOS 3.1 or later, 640K of 
memory, a hard disk, and a 286, 386, 
or 486 machine. Reader service no. 27. 


Scientific Software Tools Inc. 


Penn State Tech. Development Center 
30 East Swedesford Road | 
Malvern, PA 19355 

215-889-1354 


Xionics has released the ImageSpeed 
software accelerator an engine that pro- 
vides low-cost, high-performance Doc- 
ument Image Processing (DIP) tech- 


nology for image retrieval applications. 


Working in a PC LAN environment, Im- 
ageSpeed increases image clarity on 
standard VGA monitors using Scale-to- 
Gray technology, an algorithm that con- 
verts scanned monochrome images to 
gray-scale prior to display, thus en- 
hancing visible resolution. 

ImageSpeed features convolution scal- 
ing and rotation. It can retrieve, decom- 
press, and display an image scanned at 
300 dpi in as little as one second. Using 
Scale-to-Gray adds two to four seconds. 

The engine can be driven by Image- 
Soft Libraries running under DOS, Mi- 
crosoft Windows 3.0, and OS/2. This set 
of C callable routines controls all imag- 
ing operations, including scanning, com- - 
pression, decompression, scaling, rota- 
tion, display, and printing. 

Twenty ImageSpeed licenses sell for 


$3000; 250 run $10,000. Demo copies 


are available. Reader service no. 25. 
Xionics Inc. . 

705 The City Drive, Suite 340 
Orange, CA 92668 
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Make the Connection 
With the Industry’s 
Leading independent 
Software Dealer! 


ACUCOBOL List Ours 
2325 ACUCOBOL-85 forDOS ...... 945 699 
AMERICAN CYBERNETICS 
eae ee eee are 99 69 
3517 Multi-Edit Professional ....... 179 129 
ARITY 

2060 Arity Prolog Compiler/interpreter .. 650 519 
5055 Arity Windows Toolkit........ 350 289 
AUTUMN HILL SOFTWARE 
ce 250 199 
NE yey ak 325 269 
BALER SOFTWARE 

IRMCTE ANE aii cuuiiisclbewblel a eli aus 795 599 
5205 Ice LotusAdd-in .......... 395 299 


EXCLUSIVE BUNDLE OFFER 


Special Price Until August 31, 1991! 


Borland C++ with Rogue Wave 
Tools.h++ and Math.h++ 


List $695 $399 Save $296 


Combine the exciting new Borland C++ 
compiler with the flexibility of Rogue 
Wave's powerful object-oriented C++ 

Class libraries. 





BORLAND INTERNATIONAL 


mae oonene CIF 20rd. 495 329 
OCI ks eg wise 495 329 
2139 Special Price Until 6/30/91... 495 98 
4509 Turbo C++ 2ndEdition....... 100 69 
5246 Turbo Pascal for Windows ..... 250 175 


BRIGHTWORK DEVELOPMENT 

3611 SiteLock Network Manager 495 
BURTON SYSTEMS SOFTWARE 
2152 TLIB Version Control 139 99 


CREATIVE PROGRAMMING 


Cele WO Ae Oe ee we 395 
2211 VCScreen Screen Designer .... 149 
DisK SOFTWARE 

2274 TurboGeometry Library ....... 200 
DRUMLIN 

Sr8 OW REO ee ae 229 
DYAD SOFTWARE 

4833 M++ w/Source Array Handling .. 495 
4429 M++LP w/Source Linear Prgmg 195 
EMERGING TECHNOLOGY 

2296 EDIX Programmer's Editor... . . 195 
5103 EDA iis iste he PR ayes 245 
5262 PMM (Page Memory Mgr) ..... 295 
EVERGREEN CASE TOOLS 

4811 EasyCASe Pam ae 495 
4810 EasyCASE Professional Pack 649 


FAIRCOM 

2315 c-tree Plus File Handler inC Source 595 
4970 FairCom Server 7-5 Users... .. 295 
3856 FairCom Toolbox Professional Edition 1295 
FLEMING SOFTWARE 

3898 GRAF/DRIVE PLUS Developer... 299 
GENUS MICROPROGRAMMING 


3253: GREFEeas tee Otis A 199 
4622 GEGrapn Fil. a es 199 
2330 PCX Programmer's Toolkit... . . 249 
GIMPEL SOFTWARE 

2342 C-terp C Interpreter ........ 298 
2OAs FAMERS Sik Chie 139 
td FMM bi de iar aeia rag inte faca 239 
GREENLEAF SOFTWARE 

2358 Greenleaf CommLib ........ 359 
2359 Greenleaf DataWindows ...... 395 
2360 Greenleaf Functions ........ 229 
2368 Greenleaf ViewComm ....... 399 
GREENVIEW DATA 

2200 VEDIT FAM ori cic baat 185 


code numbers to the left of the products desired. For an index of the 
many other products we carry, use code number 1000. 


269 
114 


159 


179 


419 
169 


149 
189 
229 


399 
529 


449 
199 
899 





CASEWoORKS 

MN 5 id''a. sg! elites, aluscelig iol t 495 419 
5157 CASE:W Corporate Edition ..... 995 899 
CATENARY SYSTEMS 

4631 Victor Image Process Lib w/Src .. 295 239 


CHICAGO COMPUTER WORKS 
3830 Personal CASE 199 
CHIRP TECHNICAL SERVICES 
4445 VID&DIGCombo ......... 320 
CLARION SOFTWARE 

2404 Clarion Personal Developer... . . 79 «59 


169 


269 


2175 Clarion Professional Developer... 845 509 
CLEAR SOFTWARE 

4900 allClear /dea Iilustrator ........ 300 229. 
CLE 0 200 139 
2176 CLEARfordBASE ......... 200 139 
CNS 

sale hilt dolaagc RCE a aaa 495 399 
COMMAND TECHNOLOGY 

Se TIPO COR a 245 179 


THE COMPUTER CONNECTION 


3171 BARCODELIBRARY ........ 389 309 
MMU TERE cee sie Dig aes 89 69 
4511 LABELMASTER .......... 479 399 


GUI COMPUTER 


LAHEY COMPUTER SYSTEMS 


2463 F77L-EM32 w/ 0S/386 DOS Ext 


2462 F77L-FORTRAN Compiler 595 


5149 3-in-1 Screen Designer forC ... 159 129 
S148. SC LOr ou pee 259 209 
IMPLEMENTS 
3923 codan Source Code Analyzer ... 395 319 
INSET SYSTEMS 
BAe: PMNS ce bol mort Culee gata 199 119 
INTEL 
4975 386/486 C Code Builder Kit 695 489 
3267 ASM-386 Macro Assembler .. . 600 539 
INTERACTIVE 

- Interactive UNIX Products ..... CALL CALL 
‘INTERSOLV/SAGE 
2779 Dan Bricklin’s Demoll ........ 249 199 
2790 PVCS Professional ..:...... 495 355 
4421 Sage Professional Editor ...... 295 239 
KNOWLEDGE DYNAMICS 
EA) RT icc tot ea acon tes 250 169 
4742 INSTALL Professional ....... 400 269 
KNOWLEDGE GARDEN 
5190 KnowledgePro (DOS)........ 449 349 
4786 KnowledgePro (Windows) ..... 549 469 


. 1390 1099 


519 


MAGNA CARTA SOFTWARE 


5216 C Comm Toolkit Professional .... 300 259 
2541 C Windows Toolkkit.......... 100 79 
MEDIA CYBERNETICS 

aoe nn nr ies 395 229 
4762 HALO Professional .......... 595 349 
META SOFTWARE 

3296 MetaDesign ............. 350 279 
METAGRAPHICS 

2579 MetaWindow ............. 295 209 
2580 MetaWindow/PLUS ......... 395 279 
MICROSOFT 

4285 Microsoft C Professional Dev Sys .. 495 329 
5170 MicrosoftC & SDK Bundle ..... 749 499 
2648 Microsoft Macro Assembler .... . 150 99 
“2021 Microsoft Visual BASIC ....... CALL CALL 
4612 Microsoft Windows3.0 ....... 149 99 
4935 Microsoft Windows Device Dev Kit . 500 339 
2656 Microsoft Windows Software Dev Kit 500 339 
MKS - MORTICE KERN SYSTEMS 
2672 (WES AWN os eee 99 79 
2678 MKSLEX&YACC .......... 249 189 
Or We Saka ns arave we 249 189 


2676 MKS Toolkit3.1........... 249 189 
OAKLAND GROUP 

2715 C-scape with Look & Feel...... 499 . 475 
5297 C-scape 386 with Look & Feel ... 999 945 


SPECIAL BUNDLE PACKAGE 


Available Until August 31, 1991! 


WATCOM C8.0/386 Professional 
with Phar Lap DOS Extender 


List $1790 $4 349 save saa 


Create 386 protect-mode applications by 
simply compiling and linking using 
WATCOM C8,0/386, and running your 
application in protected mode using Phar 
Lap's DOS Extender. 





ONTRACK COMPUTER SYSTEMS 


3332 Disk Manager ............ 125 99 
OTG SYSTEMS 
OTST. FT. .» ys < eee 1350 1169 


THE PERISCOPE COMPANY 


2756 Periscope!w/512K ......... 595 499 
3402 Periscope IV 25Mhz ......... 1395 1179 
PHAR LAP SOFTWARE 

5299 286 DOS-ExtenderSDK ...... 495 435 
2780 386 DOS-ExtenderSDK ...... 495 435 
S562; SOG VM i 4. oo) 6:98 Ba ee 295 259 
POCKET SOFT 

3998 .RTLink/Plus with VML ....... 495 359 
3998 Special Price Until 7/31/91 ... 495 295 
B183 BPO: os.) oes aoc 495 359 
PRO-C CORPORATION 

BON TEOS, 3G ook se Re 795 659 
QUARTERDECK 

3643 DESQview 386 ........... 220 139 
2831 Exp'd Mem Mgr 386 QEMM-386 . 100 69 
RATIONAL SYSTEMS 

coqo WOU COU... co Se. er eee 495 419 
Sere Gwen ei) LS. Aes 199 99 


ROUNDHILL COMPUTER SYSTEMS 


3313. PANEL PI is oat. i cada 495 389 
SEQUITER SOFTWARE 

2869 CodeBase4.2............ 295 219 
5169 CodeBaset+ v6... 295 219 
SOFTWARE BLACKSMITHS 

2940 C-DOC for C&C++ ........ 189 139 


SPECIAL BUNDLE OFFER 


Special Price Until August 31, 1991! 


CASEWORKS CASE:W 
with MS C and SDK Bundle 


List $1244 $869 Save $375 


CASE:W for Windows 3.0 provides a 
high level WYSIWYG prototyper to design 
and generate a program's main window, 

menu bar, pull-down menus, and more. 





SOFTWARE INTERPHASE 


2960 | QuickComimise is oo. ee, 149 109 
2961 QuickWindows Advanced ...... 149 109 
SOLUTION SYSTEMS 

2972 Brief The Programmer's Editor ... 249 CALL 
Beet Went sss a ee 449 CALL 
SOUTH MOUNTAIN SOFTWARE 
2404 pe 249 179 
2300 C Utility Library ........... 249 149 
2306 EssentialB-Tree........... 199 139 
3355 Hold Everything ........... 199 149 
SPECTRAGRAPHICS/GSS 

2356 GSS Graphics Dev Toolkit forDOS . 795 599 


STERLING CASTLE 
2067, Beste 8 a 99 69 


fo EL ee ae ae ner 149 99 
THE STIRLING GROUP 
4997 InstallSHIELD for Windows ..... 395 349 
SUN COUNTRY SOFTWARE 
4449 Advanced Image Toolkit ...... 250 199 
4447 SunShow "C" Language Library 250 199 
4448 SunShow Database Professional .. 100 79 
SUTRASOFT 
ne: PUGRAR ee ca at Ses 350 279 
TOOLS & TECHNIQUES 
3818 Data Junction: Advanced ...... 299 239 
WATCOM PrRopucTS 
4184 WATCOM C 8.0/386 Professional . 1295 959 
with Phar Lap DOS-Ext. Special 1790 1349 

4573 WATCOM FORTRAN 77/386 .... 1095 879 
THE WHITEWATER GROUP 
De PRIN Ae a eG 249 195 
4694 ObjectGraphics ........... 195 159 
3803 Whitewater Resource Toolkit .... 195 169 
WORDPERFECT 

- WordPerfect Products ........ CALL CALL 
ZORTECH 
4200 Zortech C++ Dev Edition3.0.... 700 529 
5294 Zortech C++ for Windows 3.0 ... 400 299 
5295 = Zortech C++ Sci & Eng Edition... 1000 749 
5045 Zortech C++ Database Class Lib .. 300 239 
4201 Zortech C++ Video LearnC++ .. 500 419 


CALL FOR OTHER PRODUCTS 
Not LisTED 


ORDERING INFORMATION 


Our Entire Company Is Dedicated To Providing You With the HIGHEST 
Quality Products and Services At the LOWEST Prices 


@ VISA, MasterCard, and Discover Card are 
accepted at No Extra Charge. Your card is 
charged when your order is shipped. 

No Extra Charge for CODs or net terms. 
Net Terms available to qualified U.S. ac- 
counts with initial minimum order of $100. 
Shipping charges are based on weight. 
Return Guarantees on most products (10% 
restocking fee). 


CALL NOW For Your FREE 
Copy Of Our Catalog 
THE CONNECTION 





@ Most in-stock orders Shipped Same Day. 

@ We are experts at shipping to International 
Destinations. Credit card or other U.S. 
bank funds are required. 


@ Our knowledgeable technical staff can 


offer Sound Advice before you buy. 


@ For more information, please consult THE 


CONNECTION, our comprehensive Buyer's 
Guide & Catalog. 


} 


800-336-1166 


© Copyright 1991 Programmer's Connection Inc. Prices, availability, terms and policies are subject to change without notice. 
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PROGRAMMER’S CONNECTION 


© USA & Canada 800-336-1166 


© International 216-494-8715 


© Fax Orders 216-494-5260 


© THE FAX CONNECTION 216-494-7727 


a, oud to s Connection Incorporated / 7249 Whipple Avenue NW / North Canton, OH 44720-7143 / USA 
CIRCLE NO. 192 ON READER SERVICE CARD 
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Tf You Build It, Will They Come? 


like pasting a picture in a word processing document, or like USA Today. Words and pictures 
together, that’s one medium plus another, voila, multimedia. Other media can get into the act, 
but words and pictures are enough. And words and pictures together aren’t new. 

This new thing that is being called multimedia, this convergence of television and video and 
sound and audio CD technology with computer technology and CD-ROM, is not about just any ~ 
media. It’s specifically about dynamic media like sound and video: media that include a time 
dimension. Even the “multi” part has to do with time: For these new media, integration really 
means synchronization. 

Apple has recognized this time-dependence in naming its new media product, QuickTime. 
QuickTime is a set of tools for compressing, storing, and synchronizing tracks of dynamic data. As 
part of QuickTime, Apple has defined an extensible, cross-platform dynamic data file format called 
“movie.” Movies can have tracks of time-dependent data of various types. Currently, the data type 
includes two kinds of tracks: video and sound. More are planned. 

Maybe the term multimedia will go away. Apple’s press releases for QuickTime show a reticence 
with respect to the term, and there’s a lot of talk at shows and in the press about Desktop Video 
(DTV?) and Desktop Presentations (DTP2? — hmm). 

In the second place, the name is still wrong. 

It’s probably not going to be desktop anything. The adjective desktop implies something about 
the market for dynamic media products that just ain’t so. Look at the machines: At the low end, 
Commodore’s CDTV is only the precursor to low-cost home media machines from Apple and PC 
vendors, while the high end includes relatively expensive studio-quality MIDI and video editing 
equipment. These are tools for the home or for the studio, not for the desktop. Look at the 
definition Microsoft has put forth for a “multimedia PC”: a 10-MHz 286 or better, 2-Mbyte RAM, 30- 
Mbyte hard disk, VGA, internal CD-ROM drive, and an audio card that meets certain specifications. 
A 286? These are not the specs for a desktop computer for the 1990s; this is a definition designed 
to cover home media machines and to scale up to studio-quality equipment. Desktop business 
machines are in there somewhere, but I don’t believe that business presentation software was 
uppermost in the minds of the authors of this definition. 

Even if board-meeting presentations of the 1990s are spiced up with video and sound, the real 
market for dynamic media is probably not some extrapolation from desktop publishing, but rather 
an extrapolation from the current video market. Some people are even starting to talk about 
dynamic media development as The New Hollywood. 

In the third place, if that’s the right name, God help us. 

What would The New Hollywood produce? The old Hollywood produces movies, entertainment, 
mind candy. Can this really be where the dynamic media trend in computer technology is heading? 
Will content producers dominate and tool producers become something like special effects artists? 
Will productivity give way to what Apple calls “user experience” in judging products? 

Yeah, probably to some extent all of this will happen, and would happen even without dynamic 
media, simply because content-based products are now viable. CD-ROM is the first economical 
delivery medium for content producers. Lotus Marketplace didn’t fail in the marketplace; there 
were a lot of small businesses that wanted that product, and there are lots of customers for other 
content-based products. Data is eminently marketable. : 

Sure, databases, but entertainment? Yeah, that too. It’s no deep insight that the way to get the 
computer into the home was to connect it to the television set, and now that’s happening. It 
shouldn't be surprising if what gets produced is somehow connected to TV fare, too. But while the 
public’s need for entertainment products seems to exceed its need for spreadsheets, the failure rate 
of big-budget movies suggests that it’s difficult to gauge the public’s need for any particular 
entertainment product in advance. It’s a highly subjective field of dreams. 

Developers of business software have had the luxury of knowing that their products can 
increase the user’s productivity. Ditto for compiler vendors. Increased productivity is a legitimate 
pitch that speaks to the bottom line. But developers working in The New Hollywood may not 
have that luxury. Buying into that market may be like hearing voices in a cornfield and building a 
ballpark. 

If you build it, they will come. Well, maybe. Now it looks like we're building The New 


Hollywood. Who will come to the opening? 
— 


Michael Swaine 
editor-at-large 


| n the first place, the name is wrong. It’s not multimedia. Multimedia means combining media, 
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OpenAdaDOS386 





At last, 386/486 Ada development power and performance within your reach 


Meridian’s new OpenAda@® DOS 386 proves that 
$ 495 a top of the line development system doesn't 
have to threaten your bottom line. At $495 it 
challenges desktop and workstation products 
iInTRODUCcTORY with true 386/486 power and performance, a 


lil 32 bit development environment, and the 
ability to target both 16 and 32 bit applications. 
Economical—No other product responds so clearly to the federal govern- 
ment’s push to secure high performance PC tools targeting 16 and 32 bit 
applications—within budget restrictions. Coupled with the June mandate 
requiring Ada for all Department of Defense projects, this capability makes 
OpendAda DOS 386 a necessary choice for serious programmers. The 
price makes it an easy one. : 
Proven—OpenAda DOS 386 represents a new generation of a proven prod- 
uct line that has enjoyed unprecedented popularity, selling over 10,000 
copies within just 6 months. Products that PC Week said “slashed the 
price and raised the standard for PC based Ada development.” 


Friendly—Continuing the OpenAda tradition, OpenAda DOS 386 adds new 
tool support to a lengthy list of open and friendly advantages, including a 
pretty-printer and a cross-reference generator. In addition, it also provides 
extended support for both Microsofte and the Metaware® C compilers. 
Powerful—for all its ease of use, OpenAda DOS 386 takes full advantage 
of the resources of 386/486 architecture, providing you with the power 





and performance you need in a front end development system. 
Complete—OpendAda DOS 386 includes a complete set of development 
tools, including: 
@ Automatic recompilation tool li Ada source level debugger i 
on-line help ™ library management tools i complete documentation 
graphic and enhanced numeric libraries li ACE User Interface 
Limited Offer—to remain at the forefront of software engineering you 
have to explore Ada and Meridian has made it available for only $495. 
But you have to act now. This special offer lasts only 60.days. After that, 
you'll have to pay $1695 for this exciting product. 
At any price, OpenAda DOS 386 is an investment in your future. Meridian’s 
renowned customer support is always available. OpenAda products for PC 
DOS, UNIX and Macintosh Platforms start at $149. 


Order now to OpenAda DOS 386. Call 1(800) 221-2522. 


Meridian Software Systems, Inc., 10 Pasteur St., Irvine, CA 92718 


Fi be is a registered trademark of Meridian Software Systems, Inc. 
All product names are registered trademarks of their respective manufacturers. 
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CIRCLE NO. 154 ON READER SERVICE CARD 


“Who would you expect to give 
you the best compiler for creating 


Windows applications?” 


—Answer below 





Introducing a vastly superior way to write applications 
for Microsoft® Windows. New Borland? C++. The only 
complete C and C++ programming environment for 
Windows and DOS. Borland C++ generates Windows 
applications and DLLs, supports Windows debugging, 
and includes a visual resource editor. So you don’t need 
to buy the Microsoft Windows Software Development 
Kit (SDK). 


Borland C++ is from the people who know what 
professional programmers want. In fact, Turbo C++ 
Professional (the predecessor to Borland C++) won both 
PC Magazine’s 1990 Technical Excellence Award and 
BYTE’s 1990 Award of Excellence. 


Designed for professionals 
by professionals 


Every copy of Borland C++ comes with: 

¢ ANSI C compiler and C++ compiler 

¢ Turbo Drive” compiler and integrated development 
environment running in protected mode for huge 
capacity 

¢ Precompiled headers that significantly increase 
recompilation speed 

¢ Turbo Debugger® for Windows and DOS 

¢ Whitewater™ Resource Toolkit for visually creating 
icons, dialogs, bitmaps and menu bars 

¢ Turbo Profiler” and Turbo Assembler® 


Answer: 


GN YV 


Compare these costs 










Microsoft® C 6.0 
$ 495 










C compiler 


$495 


C++ compiler not available included 
Windows programming 

tools $ 495* (SDK) included 
Assembler $ 150 included 





$ 30 included 


$495** 


Programming Windows 
Total 









Buy now! 
Get “Programming Windows” tree! 


Buy Borland C++ now from your local dealer and 
get a free copy of Programming Windows by 

Charles Petzold, the best-selling book about learning 
Windows programming.t 


Special upgrade pricing is available from Borland for 
owners of Turbo C,° Turbo C® Professional, Turbo C++ 
and Turbo C++ Professional. 


See your dealer 
today, or 
Call Borland to 
upgrate at 
1-800-331-0877 


~ BORLAND C++ 





1 ad oO @ 


The Leader 1n Olyect-Onented Programming for Windows and DOS 


CODE: MC76 | Effective price is $254 if SDKis purchased bundled with Microsoft **$495 is the suggested retail price. tOffer good in U.S. and Canada while supplies last. Upgrade customers not eligible for free book. Copyright © 1991 Borland BI 1397A 
CIRCLE NO. 95 ON READER SERVICE CARD 
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Dr, Dr, Dobb's 


ee 


PROFESSIONAL 
PROGRAMMER 








Circle 1000 for 1 year subscription to Dr. Dobb’s Journal and bill me 
later for only $25. (U.S. only) 
Please help us help you by taking the time to answer a few 
questions. Thank you very much! 
A. Which (if any) of the following applications are you currently 

developing? 

1. O Database applications 

2. O Windows 3.X applications 

3. O UNIX applications 

4. 0 Embedded systems applications 
B. Please describe your involvement in the decision to purchase: 

5. O Authorize 6.1 Recommend = 7. 0 Specify 
C. When will you purchase the products you are inquiring about? 

8. © Purchase within one month 

9. © Purchase within six months 

10. O General information 


Name 





Title 





Company 


Address 








City State Zip 
Phone ( ) 


J 





PROGRAMMER 





Circle 1000 for 1 year subscription to Dr. Dobb's Journal and bill me 
later for only $25. (U.S. only) 
Please help us help you by taking the time to answer a few 
questions. Thank you very much! 
A. Which (if any) of the following applications are you currently 

developing? 

1. Database applications 

2. O Windows 3.X applications 

3. © UNIX applications 

4. 1 Embedded systems applications 
B. Please describe your involvement in the decision to purchase: 

5. 1 Authorize 6.0 Recommend 7. © Specify 
CG When will you purchase the products you are inquiring about? 

8. © Purchase within one month 

9: © Purchase within six months 

10. O General information 


Name 


Title 








Company 





Address 





City 
Phone (_ ) 


State Zip 








1 


37 
55 
73 
91 
109 
127 
145 
163 
181 
199 
217 


253 
271 
289 
307 
325 
343 
361 
379 
397 
415 
433 
451 


487 


523 
541 
559 
577 
595 
613 
631 


667 


703 
721 
739 
757 
775 


811 


847 
865 
883 
901 
919 
937 


973 
991 


19 
37 
55 


91 
109 
127 
145 
163 
181 
199 
217 
235 


271 
289 
307 
325 


361 
379 
397 
415 
433 
451 
469 
487 
505 
523 
541 
559 
577 
595 
613 
631 
649 
667 


703 
721 
739 
757 
775 
793 
811 
829 
847 
865 
883 
901 
919 
937 


973 
991 


2 
20 


56 
74 


110 
128 
146 
164 
182 


218 
254 


308 
326 


362 


416 


452 
470 
488 


524 
542 


578 
596 
614 
632 


704 
722 
740 
758 
776 
794 
812 


866 
902 
920 


974 
992 


20 


56 

74 
110 
128 
146 
164 
182 
200 
218 
236 


272 


326 
362 
398 
416 


470 


812 


866 
902 
920 


974 
992 


3 
21 
39 
57 
75 
93 

111 
129 
147 
165 
183 
201 
219 


255 
273 
291 
309 
327 
345 


381 


417 
435 
453 
471 
489 
507 
525 


561 
579 
597 
615 


651 
669 
687 
705 
723 
741 
759 
8 4 
795 
813 
831 
849 
867 
885 
903 
921 


957 
975 
993 


3 
21 
39 
57 
75 
93 

111 
129 
147 
165 
183 
201 
219 
237 


273 
291 
309 
327 
345 
363 
381 


417 
435 
453 
471 
489 
507 
525 


561 
579 
597 
615 


651 
669 
687 
705 
723 
741 
759 
777 


813 
831 
849 
867 
885 
903 
921 
939 
957 
975 


Use this card to find out about thé products and services listed in this issue. 


4 
22 
40 
58 
76 
94 

112 

130 

148 

166 

184 

202 

220 

238 

256 

274 

292 

310 

328 

346 

364 

382 

400 

418 

436 

454 

472 

490 

508 

526 

544 

562 

580 

598 

616 

634 

652 

670 

688 

706 

724 

742 

760 

778 

796 

814 

832 

850 

868 

886 

904 

922 

940 

958 

976 

994 


5 
23 
41 
59 
TT 
95 

113 
131 
149 
167 
185 
203 
221 
239 
257 
275 
293 
311 
329 
347 
365 
383 
401 
419 
437 
455 
473 
491 


527 
545 


581 
599 
617 
635 


671 


707 
725 
743 
761 
779 
797 
815 


851 
869 
887 
905 
923 
941 
959 
977 
995 


6 
24 
42 
60 
78 
96 

114 
132 
150 
168 
186 
204 
222 
240 
258 
276 
294 
312 
330 
348 
366 
384 
402 
420 
438 
456 
474 
492 
510 
528 


582 


618 
636 


672 
690 


726 
744 
762 
780 
798 
816 


852 
870 
888 
906 
924 
942 


978 


25 

43 

61 

79 

97 
115 
133 
151 
169 
187 
205 
223 
241 
259 
277 
295 
313 
331 
349 
367 
385 
403 
421 
439 
457 
475 
493 
511 
529 
547 
565 
583 
601 
619 
637 
655 
673 
691 
709 
727 
745 
763 
781 
799 
817 
835 


871 
889 
907 
925 
943 
961 
979 
997 


8 
26 
44 
62 
80 
98 


116 


134 
152 
170 
188 
206 
224 
242 
260 
278 
296 
314 
332 
350 
368 
386 
404 
422 
440 
458 
476 
494 
§12 
530 
548 
566 
584 
602 
620 
638 
656 


674 


692 
710 
728 
746 
764 
782 


818 
836 


872 
890 
908 
926 
944 
962 


9 
27 
45 
63 
81 
99 

117 
135 
153 
171 
189 
207 
225 
243 
261 
279 
297 
315 
333 
351 
369 
387 
405 
423 
441 
459 
477 
495 
513 
531 
549 
567 
585 
603 
621 
639 
657 
675 
693 
711 
729 
747 
765 
783 
801 
819 
837 
855 
873 
891 
909 
927 
945 
963 
981 


10 

28 

46 

64 

82 
100 
118 
136 
154 
172 
190 
208 
226 
244 
262 
280 
298 
316 
334 
352 
370 
388 
406 
424 
442 
460 
478 
496 
514 
532 
550 
568 
586 
604 
622 
640 
658 
676 
694 
712 
730 
748 
766 
784 
802 
820 
838 
856 
874 
892 
910 
928 
946 
964 
982 


11 
29 
47 
65 
83 
101 
119 
137 
155 


173 


191 
209 
227 
245 
263 
281 
299 
317 
335 
353 
371 
389 
407 
425 
443 
461 
479 
497 
515 
533 
551 
569 
587 
605 
623 
641 
659 
677 
695 
713 
731 
749 
767 
785 
803 
821 
839 
857 
875 
893 
911 
929 
947 
965 
983 


Simply circle the appropriate numbers below. 
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12 

30 

48 

66 

84 
102 
120 
138 
156 
174 
192 
210 
228 
246 
264 
282 
300 
318 
336 
354 
372 
390 
408 
426 
add 
462 
480 
498 
516 
534 
552 
570 
588 
606 
624 
642 
660 
678 
696 
714 
732 


13 

31 

49 

67 

85 
103 
121 
139 
157 
175 
193 
211 
229 
247 
265 
283 
301 
319 
337 
355 
373 
391 
409 
427 
445 
463 
481 
499 
517 
535 
553 
571 
589 
607 
625 
643 
661 
679 
697 
718 
733 
751 
769 
787 
805 


- 823 


841 
859 
877 
895 
913 
931 
949 
967 
985 


14 

32 

50 

68 

86 
104 
122 
140 
158 
176 
194 
212 
230 
248 
266 
284 
302 
320 
338 
356 
374 
392 
410 
428 
446 
464 
482 
500 
518 
536 
554 
572 
590 
608 
626 
644 
662 
680 
698 
716 
734 
752 
770 
788 
806 
824 
842 
860 
878 
896 
914 
932 
950 


15 

33 

51 

69 

87 
105 
123 
141 
159 
177 
195 
213 
231 
249 
267 
285 
303 


321 


339 


861 
879 
897 
915 
933 
951 
969 
987 


16 


52 
70 


‘106 


124 
142 
160 
178 
196 
214 


412 


718 
736 
754 
772 
790 
808 
826 
844 
862 
880 
898 
916 
934 
952 
970 
988 


17 


53 
71 


107 
125 
143 
161 
179 
197 
215 


251 


413 


593 
611 
629 
647 
665 
683 
701 
719 
737 
755 
773 
791 
809 
827 
845 
863 
881 
899 
917 
935 
953 
971 
989 


18 


72 


108 
126 
144 
162 
180 
198 
216 


936 


972 
990 
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4 
22 
40 
58 
76 
94 

112 

130 

148 

166 

184 

202 

220 


922 


976 


5 
23 
41 
59 
7 
95 

113 
131 
149 
167 
185 
203 
221 
239 
257 
275 
293 
311 
329 
347 
365 
383 
401 
419 
437 
455 
473 
491 


527 
545 


581 
599 
617 
635 


671 


707 
725 
743 
761 
779 
197 
815 


851 
869 
887 
905 
923 


941, 


959 
977 


6 
24 
42 
60 
78 
96 

114 
132 
150 
168 
186 
204 
222 
240 
258 
276 
294 
312 
330 
348 
366 
384 
402 
420 
438 
456 
474 
492 
510 
528 
546 
564 
582 
600 
618 
636 


654 
6t2 
708 
726 
744 
762 
780 


798 
816 


852 
870 
888 
906 
924 
942 


978 


25 

43 

61 

79 

97 
115 
133 
151 
169 
187 
205 
223 
241 
259 
277 
295 
313 
331 
349 
367 
385 
403 
421 
439 
457 
475 
493 
511 
529 
547 
565 
583 
601 
619 
637 
655 
673 
691 
709 
727 
745 
763 
781 
799 
817 


853 
871 
889 
907 
925 
943 
961 
979 
997 


8 
26 
44 
62 
80 
98 

116 
134 
152 
170 
188 
206 
224 
242 
260 
278 
296 
314 
332 
350 
368 
386 
404 
422 
440 
458 
476 
494 
512 


584 
602 
620 
638 


674 
692 
710 
728 
746 
764 
782 


818 
854 
872 
890 
926 
962 


9 
27 
45 
63 
81 
99 

117 
135 
153 
171 
189 
207 
225 
243 
261 
279 
297 
315 
333 
351 
369 
387 
405 
423 
441 
459 
477 
495 
513 
531 
549 
567 
585 
603 
621 
639 
657 
675 
693 
711 
729 
747 
765 
783 
801 
819 
837 
855 
873 
891 
909 
927 
945 
963 
981 


10 
28 
46 
64 
82 

100 

118 

136 

154 

172 

190 

208 

226 

244 

262 

280 

298 

316 

334 

352 

370 

388 

406 

424 

442 

460 

478 

496 

514 

532 

550 

568 

586 

604 

622 

640 

658 

676 

694 

712 

730 

748 

766 

784 

802 

820 

838 

856 

874 

892 

910 

928 

946 

964 

982 


11 

29 

47 

65 

83 
101 
119 
137 
155 
173 
191 
209 
227 
245 
263 
281 
299 
317 
335 
353 
371 
389 
407 
425 
443 
461 
479 
497 
515 
533 
551 
569 
587 
605 
623 
641 
659 
677 
695 
713 
731 
749 
767 
785 
803 


821° 


839 
857 
875 
893 
911 
929 
947 
965 
983 


Simply circle the appropriate numbers below. 
i 


12 

30 

48 

66 

84 
102 
120 
138 
156 
174 
192 
210 
228 
246 
264 
282 
300 
318 
336 
354 
372 
390 
408 
426 
444 
462 
480 
498 
516 
534 
552 
570 
588 
606 
624 
642 
660 
678 
696 
714 
732 
750 
768 
786 
804 
822 
840 
858 
876 
894 
912 
930 
948 
966 
984 


13 

31 

49 

67 

85 
103 
121 
139 
157 
175 
193 
211 
229 
247 
265 
283 
301 
319 
337 
355 
373 
391 
409 
427 
445 
463 
481 
499 
517 


co 


553 
571 
589 
607 
625 
643 
661 
679 
697 
716 
733 
751 
769 
787 
805 
823 
841 
859 
877 
895 
913 
931 
949 
967 
985 


14 

32 

50 

68 

86 
104 
122 
140 
158 
176 
194 
212 
230 
248 
266 
284 
302 
320 
338 
356 
374 
392 
410 
428 
446 
464 
482 
500 
518 
536 
554 
572 
590 
608 
626 
644 
662 
680 
698 
716 
734 
752 
770 
788 
806 
824 
842 
860 
878 
896 
914 
932 
950 
ri 


15 

33 

51 

69 

87 
105 
123 
141 
159 
177 
195 
213 
231 
249 
267 
285 
303 
321 
339 
357 
375 
393 
411 
429 
447 
465 
483 
501 
519 
537 
555 
573 
591 
609 
627 
645 
663 
681 
699 
717 
735 
753 
771 
789 
807 
825 
843 
861 
879 
897 
915 
933 
951 
969 
987 


376 
412 


448 
466 


502 
520 


556 
574 
592 
610 
628 
646 
664 
682 
700 
718 
736 
754 
772 
790 
808 
826 
844 
862 
880 
898 
916 
934 
952 
970 
988 


17 


53 
71 


107 
125 
143 
161 
179 
197 
215 
233 
251 
269 
287 
305 
323 
341 
359 
377 
395 
413 
431 
449 
467 
485 
503 
521 
539 
557 
575 
593 
611 
629 
647 
665 
683 
701 
719 
737 


755. 


773 
791 
809 
827 
845 
863 
881 
899 
917 
935 
953 
971 
989 
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READER SERVICE MANAGEMENT DEPT. 
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. Canada and Mexico oa : 
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. delivery of first issue. 











Prepayment is required on all foreign orders. 
Canada and Mexico: $45/year. All other foreign countries: $70/year. 


[] My.check (in U.S. dollars drawn on a U.S. bank) is enclosed. 
[|] Charge my L] VISA L] MasterCard. 


CARD NUMBER EXPIRATION DATE 
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Mail this card with your payment to: | 


rD) 


P.O. Box 56188 
Boulder, CO 80322-6188 
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SOFTWARE 
TOOLS FOR THE 
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PROGRAMMER 
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Prepayment is required on all foreign orders. 
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[] Charge my [] VISA L] MasterCard. 


CARD NUMBER See EXPIRATION DATE 





SIGNATURE _ 


Mail this card with your payment to: 


Dr, Dobb's 
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_ FORTRAN users create 
bigger apps for fewer bucks. 


Microsoft FORTRAN and sampling statistics for your code. 
users can update tonew HOW DOIORDER MY UPDATE? 
FORTRAN 5.1 for just Just fill out the back of this card 
$150 (suggested price _ to order your update. For even faster 
$450) until August 31, 1991. Even _ service, or if you acquired your cur- 
better, you can get FORTRAN 5.1 __rent version of Microsoft FORTRAN’ 
and the Microsoft Source Profiler after May 1, 1991, call (800) 541-1261, 
(suggested price $99) for $189, The Department TDDI. 

Microsoft Source Profiler helps you : 
optimize your DOS’, Windows" orOS/2” Micresott 
programs by generating timing, counts Making it all make sense’ 











“Add the skied sales tax in the following states: AZ, CA, CO, ve DC, FL, GA, HI, ID, IL, IN, KY, MA, MD, ME, MI, MN, MO, he NE, NJ, NM, NV, NY, OH, PA, SC, TN, TX, VA, and WA. Microsoft res 
correct tax rates and/or collect the sales ae assessed by additional states as require ed by la w, without mane Please allow fps to 4 weeks for de livery upon receipt of this order cou pon by Microsoft. OFFER EXPIRES AUGUST 31, herd 
Oe ier good on sie in the 50 United States. This coupon is not transfera ole © 1991 Minuet ‘Ciebora Printed in the U.S.A. Microsoft and the Microsoft teen are registered trademarks and Making it all make sense 
ndows are trademarks of Moneof Corporation. OS/2 is a registered trademark licensed to Nii Coencae | ‘As used herein, “DOS” refers to MS-DOS or PC-DOS operating systems. 














Here’s how to order your update: 


1. Fill out this card. 

2. Provide proof of license. Enclose the original 
title page from a Microsoft FORTRAN 
manual (any version). One title page must be 
included for each update ordered. 

3. Send this completed card, the title page(s) 
from your manual(s), and your check, money 
order or credit card information to: 


Microsoft FORTRAN version 5.1 
Update Offer 

21919 20th Avenue SE 

P.O. Box 3011 

Bothell, WA 98041-3011 


4. Allow 2-4 weeks for delivery upon receipt of 
this order coupon by Microsoft. 


Name (please print) 








Company (if applicable) 





Address 





City State ZIP 


Daytime phone (please include your area code) 
Category Code TDD] 





| 3.5” High Density (1.44 MB) 
| || 3.5” Low Density (720K) 
|_|: 5.25” High Density (1.2 MB) 


5 


ee ae 
||| 3.5” Low Density (720K $189 
| _|_-5.25” High Density (12 MB) | $189 


9.29” Low Density (360K) 








LJ] Check or Money Order take check payable to Microsofy 
L] VISA «30 16 numbers: [_] MasterCard 16 numbers 
L_] American Express a5 numbers 





Card No. Exp. date 


Signature (authorizing use of credit card) 





